Mine

alias whois.chan {
  var %a = 1, %x
  while ($nick($1,%a)) {
    %x = $addtok(%x,$v1,44)
    if ($numtok(%x,44) == 8) {
      whois %x
      var %x
    }
    inc %a
  }
  if (%x) whois %x
}