let getch () = 
       getch' (Curses.getch ())