collapseos/blk/401

11 lines
153 B
Plaintext
Raw Normal View History

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