cF4 {
  var %reason = $input(Enter Reason:,eqd,Reason Input,Banned.)
  var %i = 1
  while ($ [ $+ [ %i ] ]) {
    var %v1 = $v1
    var %b = %b $address($v1,2)
    if ($numtok(%b,32) >= $modespl) { mode # + $+ $str(b,$modespl) | var %b }
    inc %i
  }
  if (%b) { mode # + $+ $str(b,$numtok(%b,32)) %b }
  kick # $* %reason
}