alias -l banjirian {
  var %a $regex($1-,/[[:cntrl:]]/g)
  var %b $regex($1-,/[[:upper:]]/g)
  var %c $regex($1-,/[[:digit:]]/g)
  var %d $regex($1-,/[ $chr(44) ]/g)
  var %e $regex($1-,/[[:punct:]]/g)
  var %f $regex($1-,/[ $chr(160) ]/g)
  var %g $regex($1-,/[[:alnum:]]/g)
  var %h $regex($1-,/[ $chr(174) ]/g)
  var %i $pos($level($1-),adv,0)
  var %j $pos($level($1-),bad,0)
  hinc -u3m a [ $+ [ # ] ] $nick 1
  hinc -u3m b [ $+ [ # ] [ $nick ] ] $hash($remove($strip($1-),$chr(160),$chr(32)),32) 1
  $iif(%a > 49,$kick(CODES))
  $iif(%b > 49,$kick(CAPS))
  $iif(%c > 49,$kick(DIGIT))
  $iif(%d > 49,$kick(APHOSTROPHE))
  $iif(%e > 49,$kick(SYMBOL))
  $iif(%f > 49,$kick(BLANK))
  $iif(%g > 199,$kick(LONGTEXT))
  $iif(%h > 49,$kick(ASCII))
  $iif(%i = 1,$kick(ADVERTISE))
  $iif(%j = 1,$kick(SWEAR))
  $iif($hget(a [ $+ [ # ] ],$nick) = 4,$kick(LINE))
  $iif($hget(b [ $+ [ # ] $+ [ $nick ] ],$hash($remove($strip($1-),$chr(160),$chr(32)),32)) = 2,$kick(REPEAT))
 }