(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

(use srfi-1 stty)
(stty '(not icanon))
(printf "~s~%~!"  (map (lambda (_) (read-char)) (iota 3)))
;; press left arrow
=> (#\esc #\[ #\C)