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