CREATE repl:buffer 80 ALLOT
: repl:read-line repl:buffer DUP 80 READ-LINE ;
: repl:one-inner ." > " repl:read-line 0 EVALUATE ;
: repl:one ['] repl:one-inner CATCH ?DUP IF ." error " .DECIMAL ELSE ." ok" THEN CR ;
: repl BEGIN repl:one AGAIN ;

repl