: EMIT
    ( 0x53==(emit) override )
    0x53 RAM+ @ DUP IF EXECUTE ELSE DROP (emit) THEN ;

: (print)
    BEGIN
        C@+      ( a+1 c )
        ( exit if null or 0xd )
        DUP 0xd = OVER NOT OR IF 2DROP EXIT THEN
        EMIT     ( a )
    AGAIN
;