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;;