;(use readline regex)
;       (current-input-port (make-gnu-readline-port))
;       (gnu-history-install-file-manager 
;          (string-append (or (getenv "HOME") ".") "/.csi.history"))
(use linenoise)
   (current-input-port (make-linenoise-port))