alias kreg {
  var %a = $nick($active,0)
  while ($nick($active,%a) isreg $active) {
    ban -ku180 $active $nick($active,%a) blah blah blah (3 minutes)
    dec %a
  }
}