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