external ttyname : Unix.file_descr -> string = "caml_extunix_ttyname"