on *:text:*:#cl: {
  if ($1 == $2) { set %wordcount. [ $+ [ $nick ] ] $calc(%wordcount. [ $+ [ $nick ] ] - 100) | set %letters. [ $+ [ $nick ] ] $calc(%letters. [ $+ [ $nick ] ] - 100) | halt }
  if ($1 =< 20) { halt }
  inc %wordcount. [ $+ [ $nick ] ] $0 | inc %letters. [ $+ [ $nick ] ] $len($1-)
  write -d$nick %wordcount. [ $+ [ $nick ] ] wordcount.txt
  write wordcount.txt $nick %wordcount. [ $+ [ $nick ] ]
}