(use posix srfi-1)
(set-buffering-mode! (current-input-port) #:none)
(set-buffering-mode! (current-output-port) #:none)
(printf "~s~%~!"  (map (lambda (_) (read-char)) (iota 3)))
;; press left arrow
;; press enter
(#\esc #\[ #\C)

;; without enter I don't get the result