alias wordcount {
  msg $active %word
}
alias lettercount {
  msg $active %letter
}
on *:INPUT:*: {
  var %a $numtok($1-,32)
  var %b $len($1-)
  set %word $calc($eval(%word + %a,1))
  set %letter $calc($eval(%letter + %b,1))
}