collapseos/blk/367
2020-05-22 13:48:30 -04:00

7 lines
120 B
Plaintext

: SCPY
BEGIN ( a )
C@+ ( a+1 c )
?DUP NOT IF DROP EXIT THEN
C, ( a c )
AGAIN ;