$1 = 0
$2 = 0


$3 = $1+1
$4 = $2+1
$0 = A[$3,$4] - B[$3,$4]
while($0 == 0)
  $2 = $2 + 1
  $1 = $1 + ($2/W)
  $2 = $2 % W
    
  $3 = $1+1
  $4 = $2+1
  $0 = A[$3,$4] - B[$3,$4]
end  


return($3,$4)