Someone

checkaddress {
  var %x = 1, %z = 0, %w = 0, %i = 0
  while (%x <= $chan(0)) {
    var %y = 1
    while (%y <= $nick($chan(%x),0)) {
      inc %w
      ;echo -s Address $nick($chan(%x),%y) in $chan(%x) $+ : $address($nick($chan(%x),%y),2)
      if ($address($nick($chan(%x),%y),2) == $1) {
        inc %z
        echo -s 14Found in07 $chan(%x) 14nick:07 $nick($chan(%x),%y)
      }
      if (!$ial($nick($chan(%x),%y),1)) inc %i
      inc %y
    }
    inc %x
  }
  echo -s 14Finished checking07 %w 14users on07 $chan(0) 14 $+ $iif($chan(0) == 1,channel,channels) $+ ,07 %z 14users found matching07 $1
  echo -s $+(07,$round($calc((%i / %w) * 100),0),%) 14of the users weren't found on the Internal Address List
}