+ (loop for str = (progn (format t "> ") (force-output) (read-line))
+ while str
+ do (p (e (r str)))))
+
+(defun boot ()
+ (cl-nl.random:set-seed 15)
+ (cl-nl.nvm:create-world)
+ )
+
+(defun run-commands (cmds)
+ (eval (cl-nl.transpiler:transpile-commands (cl-nl.parser:parse (cl-nl.lexer:lex cmds)))))
+
+(defun run-reporter (reporter)
+ (eval (cl-nl.transpiler:transpile-reporter (car (cl-nl.parser:parse (cl-nl.lexer:lex reporter))))))