external realpath : string -> string = "caml_extunix_realpath"