alias wordnumber {
  msg $active %number
}
on *:INPUT:*: {
  var %a $numtok($1-,32)
  set %number $calc($eval(%number + %a,1))
}