adam@1993: task initialize = fn _ =>
adam@1993:   v <- getenv (blessEnvVar "USER");
adam@1994:   case v of
adam@1994:       None => debug "No USER"
adam@1994:     | Some u => debug u