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