let create () = 
  {
    pwd = Sys.getcwd ();
    env = Unix.environment ();
  }