(types.ps) run
(reader.ps) run
+(printer.ps) run
+(env.ps) run
+(core.ps) run
% read
/_readline { print flush (%stdin) (r) file 99 string readline } def
/REP { READ repl_env EVAL PRINT } def
/_ref { repl_env 3 1 roll env_set pop } def
-types_ns { _ref } forall
+core_ns { _ref } forall
(readline) { 0 get _readline not { null } if } _ref
(read-string) { 0 get read_str } _ref