alias away {
  set %time $ctime
  set %reason $1-
  set %backnick $me
  amsg 6,1I Am Now Away14,1  4,1Reason:14,1 %reason $+ 4 6I left at6 $asctime(h:nntt) PST
  nick $me $+ |Away
}
alias back { 
  amsg 6,1Back from14,1 %reason 6,1I was gone for $duration($calc($ctime - %time))
  unset %reason
  nick %backnick
}