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 ()