(sllgen:make-rep-loop  "--> "
    (lambda (pgm) (eval-program pgm))
    (sllgen:make-stream-parser 
      the-lexical-spec
      the-grammar))