51
range
    square
m1
dup
    3
    *
    power-of-10
m3
sum
double
dec
3
pow
1000
base #(num to list)
reverse
    +
b1
scan
select
unlines