line-mode
read-nums
extract-array
power-of-10
divmod
f:
    @0
    @3
    +
        show
    t1
    tail
    reverse
    read-num
    show
    "."
    catenate #(list+list)
    reverse
    catenate #(list+list)