#! /usr/local/bin/gosh
(use readline)
(use readline.history)
(use readline.keymap)
(use readline.term-util)

(define (main _)
  (with-immediate-input
   (display ": ") (flush)
    (let1 s (hash-table-get (readline #f) 'string)
      (newline)
      (print "You entered: " s))))