$0 = 0
$1 = 0
while($0 < H*W)
$2 = $0 / W
$3 = $0 % W
$4 = A[$2 + 1, $3 + 1] - B[$2 + 1, $3 + 1]
$4 = $4 + 101
$5 = 1
$6 = $4 * $4 * $4 * $4
$6 = $6 % 101
$5 = $6
$5 = $5 % 101
$6 = $6 * $6 * $6
$6 = $6 % 101
$5 = $5 * $6
$5 = $5 % 101
$6 = $6 * $6
$6 = $6 % 101
$5 = $5 * $6
$5 = $5 % 101
$5 = $5
$1 = $1 + $0 * $5
$0 = $0 + 1
end
$7 =$1 / W
$8 = $1 % W
return ($7+1, $8+1)