prompt

(defn prompt
  [msg]
  (print (str msg " "))
  (flush)
  (read-line))

(defn prompt-int
  [msg]
  (try
    (Integer. (prompt msg))
    (catch Exception e (prompt-int msg