on *:text:!list:#:var %i 1 | while $var(*,%i) { msg $chan $v1 - $($v1,2) | inc %i }