alias matchaddr {
if ($gettok($1,1,33) isin $gettok($2,1,33)) { return $true }
if ($gettok($gettok($1,2,33),1,64) isin $gettok($gettok($2,2,33),1,64)) { return $true }
var %done 1
while (%done <= $numtok($gettok($1,2,64),46)) {
if ($gettok($gettok($1,2,64),%done,46) isin $gettok($2,2,64)) { return $true }
inc %done
}
return $false
}