Rewrite main loop through iterators
Add PROG1_READ function in lisp (a la READ)