(import breadline)
(import fmt)
(import fmt-color)

(let loop ()
  (let ((input (readline (fmt #f (fmt-bold (fmt-magenta "> "))))))
    (if input
	(begin
	  (display input)
	  (newline)
	  (add-history! input)
	  (loop))
	(newline))))