alias F8 { var %£n $comchan($$1,0) | var %^ 1
  while %^ <= %£n { set -u3 %£chan $addtok(%£chan,$comchan($$1,%^),32) | inc %^ } 
  var %£Cs $numtok(%£chan ,32) | var %£^ 1
  while  %£^ <= %£Cs { if $me isop $gettok(%£chan,%£^,32) { 
      mode $gettok(%£chan,%£^,32) +b $$1 | kick $gettok(%£chan,%£^,32) $$1 Bla bla... 
    inc %£^ } | else { samode $gettok(%£chan,%£^,32) +b $$1 | inc %£^  
    } 
  }
}