line-mode
read-nums
dump
pop-b
nip-a
1
swap
binary #(num to list)
{
    tuck-a
    pow
    *
    @0
    *
    push-b
    %
}
each