Infinite non-blocking curses input loop in OCaml, reading input from the keyboard

curses_loop.ml

let win = Curses.initscr ();;
Curses.nodelay win true;;
Curses.noecho ();;

let rec run () =
  let inputCharCode = Curses.getch () in
  let input = if inputCharCode >= 0 && inputCharCode <= 255
	      then Some (Char.chr inputCharCode)
	      else None in
  let couldWrite = match input with
    | Some char -> Curses.mvaddstr 0 0 (Char.escaped char)
    | None -> false
  in run ();;

let _ = run ();;