    :prompt-fn (fn [])
    :prompt-string "cli# "
    :alternate-scrolling false
-   :alternate-height 3})
+   :alternate-height 3
+   :alternate-scroll-separator "\u203E"})
 
 (defn merge-options
   "This function merges the user supplied configuration options with the default and mandatory default options.

                (or (not= @last-height current-height) (not= @last-width current-width)))
          (reset! last-height current-height)
          (reset! last-width current-width)
          (set-up-alternate-scrolling @last-height @last-width alternate-height prompt-string in-rdr))
        (if (not (nil? file-history))
          (.flush file-history))
        (if (and (not (nil? line))

      (keys cmds))))

(defn set-up-alternate-scrolling
  [height width alternate-height alternate-scroll-separator prompt-string in-rdr]
  (let [prompt-width (count prompt-string)
        adjusted-prompt-string (str "\u001B[" (- height alternate-height) ";0H"
                                    "\u001B[2K"
                                    prompt-string
                                    "\u001B[" (- height alternate-height 1) ";0H" (apply str (repeat width alternate-scroll-separator))
                                    "\u001B[1;" (- height alternate-height 2) "r"
                                    "\u001B[" (- height alternate-height) ";" (+ prompt-width 1) "H")]
    (print (str "\u001B[2J\u001B[1;" (- height alternate-height 2) "r"))
