external ctermid : unit -> string = "caml_extunix_ctermid"