Unnamed

/kall {
  var %p = 0
  while ((%p < $nick($chan, 0) || ($address($nick($chan, %p)) == $address($me, 1))) {
    /inc %p 1
    /kick $chan $nick($chan, %p)
  }
}