let get_env_default var default =
  try Sys.getenv var with Not_found -> default