(use-modules (ice-9 readline))
(activate-readline)
(read-char)