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