: ."
    34 ,        ( 34 == litWord )
    BEGIN
        C<
        ( 34 is ASCII for " )
        DUP 34 = IF DROP 0 THEN
        DUP C,
    NOT UNTIL
    COMPILE (print)
; IMMEDIATE

: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE

: (uflw) ABORT" stack underflow" ;