let env s =     try Some (Sys.getenv s) with _ -> None