alias a {
  set %time $asctime 
  set %reason $iif($2,$2-,none)
  set %nick $me
  nick $me |AFK 
  amsg 10I am 4now $$1 for 10[11[13«14« $+ %reason $+ 14»13»]11]10, 10I left at %time =D 
  away %reason
} 
alias b { 
  amsg Im now back from [[10«13« $+ %reason $+ 13»10»]], ive been gone for  $duration($calc(($ctime - $ctime(%time)))) 
  unset %time 
  unset %reason 
  nick %nick
  away
}