$1=H
$2=W
$0=0
while( A[$0/$2+1,$0%$2+1]==B[$0/$2+1,$0%$2+1])
    &$0=$0+1
end
return($0/$2+1,$0%$2+1)