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

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