592159
digits
6
times #(list)
unlines
push-d
inc
sub-power-of-2
times #(list)
leave-top