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