Miscellany

mass {
  var %a = 1, %b = 1, %c = 1
  while ($nick(#,%a)) {
    set -l $+(%,%b) $($+(%,%b),2) $v1
    inc %a
    if ($numtok($($+(%,%b),2),32) == $modespl) inc %b
  }
  while (%c <= %b) {
    mode # $+($left($1,1),$str($right($1,1),$numtok($($+(%,%c),2),32))) $($+(%,%c),2)
    inc %c
  }
}