Anonymous

ck {
  var %x = 1
  while (%x <= $chan(0)) {
    $iif($address($nick($chan,%x),2) iswm $1,kb $nick($chan,%x))
    inc %x
  }
}