(initial-prompt quit-prompt prompt)
(defn initial-prompt [quit-prompt prompt] (quit-prompt) (prompt) (flush))