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