getenv caml

open Core.Std;;
match home_or_nothing with
| Some x -> x
| None -> raise No_home
with
No_home -> exit
|_ -> "Exeption inconnue";;