let init () =
  if not !initialized then (
    let open Unix in
    let term_init = tcgetattr stdin in
    at_exit (fun () -> tcsetattr stdin TCSADRAIN term_init);
    initialized := true;
    ()
  )