alias afk {
  set %awaygone $ctime
  set %awayreason $$?="Reason:"
  ame is now away: »» %awayreason «« left at $asctime(h:nn:sstt)     
  away Away: %awayreason
}
alias back {
  ame is now back: »» %awayreason «« I was gone for: $replace($duration($calc($ctime - %awaygone)),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s) 
  away
  unset %awaygone
  unset %idlenick
  unset %awayreason
}