Stuff

alias wordcount {
  msg $active $c2 $+ [[ $+ $c3 $+ WORDCOUNT $+ $c2 $+ ]] $c1 $+ my letter count is: $+($c2,%word,$c1) since: $+($c2,Mon Jan 25 2010)
}
alias lettercount {
  msg $active $c2 $+ [[ $+ $c3 $+ LETTERCOUNT $+ $c2 $+ ]] $c1 $+ my letter count is: $+($c2,%letter,$c1) since: $+($c2,Mon Jan 25 2010)
}
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))
}