9 lines
251 B
Text
9 lines
251 B
Text
: /i / int ; : 0= 0 == ;
|
|
: dip swap '_ set execute _ ; : dupd 'dup dip ;
|
|
: 2dip swap '_x set swap '_y set execute _y _x ;
|
|
: while
|
|
do dupd 'execute 2dip
|
|
rot 0= if break else dup 2dip then
|
|
loop ;
|
|
|
|
1024 "dup 0 >" "dup . 2 /i" while
|