20 lines
397 B
Text
20 lines
397 B
Text
[ swap number$
|
|
tuck size -
|
|
times sp echo$ ] is echo-rj ( n n --> )
|
|
|
|
say " * |"
|
|
12 times [ i^ 1+ 4 echo-rj ] cr
|
|
say " ---+"
|
|
char - 48 of echo$ cr
|
|
[ 12 times
|
|
[ i^ 1+
|
|
dup 3 echo-rj
|
|
say " |"
|
|
12 times
|
|
[ i^ 1+
|
|
2dup > iff
|
|
[ drop 4 times sp ]
|
|
else
|
|
[ dip dup
|
|
* 4 echo-rj ] ]
|
|
cr drop ] ]
|