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