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