let curses_keys () =
let window = Curses.initscr () in
at_exit Curses.endwin;
ignore (Curses.noecho ());
ignore (Curses.keypad window true);
let rec loop () =
ignore (Curses.wmove window 0 0);
let ch = Curses.getch () in
ignore (Curses.waddstr window
(sprintf "input: %i name: %s "
ch (getch' ch)));
loop ()
in
loop ()