collapseos/blk/442
2020-04-25 21:54:07 -04:00

12 lines
172 B
Plaintext

( EMIT is needed for this unit to compile )
: (print)
BEGIN
C@+ ( a+1 c )
( exit if null )
DUP NOT IF 2DROP EXIT THEN
EMIT ( a )
AGAIN
;