match Array.length Sys.argv with   1 ->     Array.iter print_endline (Unix.environment ()) | n ->     let errors = ref false in     for i = 1 to n - 1 do       try         print_endline (Unix.getenv Sys.argv.(i))       with Not_found -> errors := true     done;     if !errors then exit 1;;