( 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
;