let mon_pwd () =   try print_endline (mon_getcwd ())   with Not_found ->     prerr_endline "Root directory could not be found!";     exit 1;; handle_unix_error mon_pwd ();;