Raw 319:*:{ 
  if ($3) { set %whois. $+ $left($3,1) %whois. [ $+ [ $left($3,1) ] ] $remove($3,$left($3,1)) }
  if ($4) { set %whois. $+ $left($4,1) %whois. [ $+ [ $left($4,1) ] ] $remove($4,$left($4,1)) }
  if ($5) { set %whois. $+ $left($5,1) %whois. [ $+ [ $left($5,1) ] ] $remove($5,$left($5,1)) }
  if ($6) { set %whois. $+ $left($6,1) %whois. [ $+ [ $left($6,1) ] ] $remove($6,$left($6,1)) }
  if ($7) { set %whois. $+ $left($7,1) %whois. [ $+ [ $left($7,1) ] ] $remove($7,$left($7,1)) }
  <<  $8 - $32 here  >>
  if (%whois.~) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11owner04 of channels:09 %whois.~ }
  if (%whois.&) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11admin04 on channels:09 %whois.& } 
  if (%whois.@) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11opped04 on channels:09 %whois.@ }
  if (%whois.%) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11half-opped04 on channels:09 $addhash(%whois.%) }
  if (%whois.+) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11voiced04 on channels:09 %whois.+ }
  if (%whois.#) { echo -a 4»15»4» 11[4WHOIS[8 $+ $2 $+ 4]11]4 is 11regular04 on channels:09 $addhash(%whois.#) }
  unset %whois.~
  unset %whois.&
  unset %whois.@
  unset %whois.%
  unset %whois.+
  unset %whois.#
  haltdef
}

alias addhash {
  tokenize 32 $1-
  var %x = $1-
  var %y = $0
  var %z = 1
  while (%z <= %y) {
    var %s = $+(%s,$chr(32),$+($chr(35),$($+($chr(36),%z),2)))
    inc %z
  }
  return %s
}