open Core.Std;;
try let home_or_nothing = Sys.getenv("HOME") in
match home_or_nothing with
| Some x -> x
| None -> raise No_home
with
No_home -> exit
|_ -> "Exeption inconnue";;