line-mode
words
extract-array
read-num
over
length
0
swap
clamp
@2
swap
-
take
0
show
logical-or
@12
read-num
@9
power-of-10
%
f:
    "."
    catenate #(list+list)
    @2
    @6
    48
    rjust
    reverse
    read-num
    show
    reverse
    catenate #(list+list)