line-mode
read-num
binary #(num to list)
9
binary #(num to list)
swap
m:
    double
    9
    -
    binary #(num to list)
    over
            2
            chunks
        t2
        transpose
        cartesian-product
        m:
            dump
                *
            z1
            sum
            9
            power-of-10
            %
        }
    b6
    2
    times #(eval)
}
pop
head