14 lines
278 B
Text
14 lines
278 B
Text
[ 3 + dup 3 ** + 2 / ] is magicconstant ( n --> n )
|
|
|
|
20 times [ i^ magicconstant echo sp ] cr cr
|
|
|
|
1000 magicconstant echo cr cr
|
|
|
|
0 1
|
|
[ over magicconstant over > if
|
|
[ over 3 + echo cr
|
|
10 * ]
|
|
dip 1+
|
|
[ 10 21 ** ] constant
|
|
over = until ]
|
|
2drop
|