$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)