alias goaway {
  set %aw.msg $1-
  set %aw. sure
  set %aw.time1 $ctime
  ame is now away $iif(%aw.msg == $null,[AWAY],$+([,%aw.msg,])) Left at $time
}
alias back {
  if (%aw. == sure) {
    ame has returned from $iif(%aw.msg == $null,[AWAY],$+([,%aw.msg,])) Time away $duration($calc($ctime - %aw.time1),2)
    unset %aw.*
  }
}