let home =
  try Sys.getenv "HOME"
  with Not_found -> ""