line-mode
dup
read-num
digits
right-uncons
4
smallest
swap
1
take-end
1
index
*
( "thrdndst" )
2
chunks
get
catenate #(list+list)