5 lines
160 B
Text
5 lines
160 B
Text
|
DEFINE ack == [ [ [pop null] popd succ ]
|
||
|
|
[ [null] pop pred 1 ack ]
|
||
|
|
[ [dup pred swap] dip pred ack ack ] ]
|
||
|
|
cond.
|