external ptsname : Unix.file_descr -> string = "caml_extunix_ptsname"