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