on *:text:*:#: {
if ($nick isop $chan) && ($1 !count) {
if ($2 == add) && ($3) { set %wordlist $addtok(%wordlist,$3,44) }
if ($2 == remove) && ($istok(%wordlist,$3, 44)) { set %wordlist $remtok(%wordlist,$3,44) }
}
var %i 1
while (%i <= $0) {
if ($istok(%wordlist, $($+($,%i),2), 44)) { inc %count. $+ $($+($,%i),2) }
inc %i
}
}