(use readline irregex)
(current-input-port (make-readline-port "λ "))
(history-install-file-manager
	(string-append (or (get-environment-variable "HOME") ".") "/.csi.history"))