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