(use parley)

(let loop ((l (parley "> ")))
  (if (equal? l "quit")
      (print "bye!")
      (begin
        (printf "you typed: ~s~%" l)
        (loop (parley "> ")))))