alias topunuzban {
  if $left($active,1) == $chr(35) {
    var %channel 1
    while %channel <= $nick($active,0) {
      if $nick($active,%channel) isreg $active { kick $active $nick($active,%channel) $1- }
      inc %channel
    }
  }
}