alias tester {
  var %w = 1, %x = #mirc
  while $chan(%w) {
    if ( !$istok( %x, $v1, 32 ) ) amsg test
    inc %w
  }
}