(define $repl
  (lambda []
    (do {[(write "input: ")]
         [(flush)]
         [$input (read-line)]
         [(write input)]
         [(print "")]
         [(repl)]
         }
      [])))

(define $main
  (lambda [$argv]
    (do {[(repl)]}
      [])))