let login =
  try Sys.getenv "USER"
  with Not_found -> Filename.basename home