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