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