read-nums
dup
1
get
3
%
save-a
572364558
1000
base #(num to list)
get
w( "no" "yes" )
m:
    0
    push-a
    double
    copies
    3
    rjust
        swap
        -
    z2
}
10
inc
repeat-product
get
select
unlines