Something

alias clearbans {
  var %x = 1, %y
  while (%x <= $ibl($chan,0)) {
    %y = %y $ibl($chan,%x)
    if ($numtok(%y,32) == $modespl) { mode $chan $+(-,$str(b,$modespl)) %y | %y = "" }
    inc %x
  }
  if (%y) { mode $chan $+(-,$str(b,$modespl)) %y }
}
alias noeI {
  var %x = 1, %e , %i
  while (%x <= $iel($chan,0)) {
    %e = %e $iel($chan,%x)
    if ($numtok(%e,32) == $modespl) { mode $chan $+(-,$str(e,$modespl)) %e | %e = "" }
    inc %x
  }
  %x = 1
  while (%x <= $iil($chan,0)) {
    %i = %i $iil($chan,%x)
    if ($numtok(%i,32) == $modespl) { mode $chan $+(-,$str(I,$modespl)) %i | %i = "" }
    inc %x
  }
  mode $chan $+(-,$str(e,$modespl)) %e
  mode $chan $+(-,$str(I,$modespl)) %i
}