alias away {
  set %myaway.reason $1-
  set %myaway.time $ctime
  amsg 12[4GLOBAL12] ---  7I am away -- %myaway.reason $+ . Left at $time $+ .
}
alias back {
  amsg 12[4GLOBAL12] ---  7I am back from %myaway.reason $+ . I was gone for $duration($calc($ctime - [ %myaway.time ] )) $+ .
  unset %myaway.reason
  unset %myaway.time

}