1 /runlibfile where
{ pop }{ /runlibfile
{ run
} def
} ifelse %
4 (printer.ps
) runlibfile
7 /_readline
{ print flush
(%stdin) (r) file 1024 string readline } def
17 % just "return" the "ast"
31 /REP
{ READ
(stub env
) EVAL PRINT
} def
36 not
{ exit } if % exit if EOF
42 get_error_data
false _pr_str print
(\n) print
43 $error
/newerror
false put
44 $error
/errorinfo null put
50 (\n) print
% final newline before exit for cleanliness