alias tara {
  var %t = 1
  while (%t <= $nick($1,0)) {
    var %bdnick = $nick($1,%t)
    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%bdnick) | kick $1 %bdnick badnick.. }
    inc %t 1
  }
}