line-mode
1
0
rot
read-num
binary #(num to list)
m:
    rrot
        square
    t1
    +
    @3
    double
    @3
    -
    @1
    *
    rot
        +
        @0
    f2
        9
        power-of-10
        %
    t3
}
pop2