line-mode
read-num
push-a
2
get
3
%
10
*
+
1547324881
binary #(num to list)
get
w( "yes" "no" )
get
0
@7
double
copies
3
rjust
    ^
z1