def f(x,l,r) if l==r $hs[[l,r]]+=1 elsif (l<=x&&x<=r) $hs[[l,r]]+=1 m=(l+r)/2 f(x,l,m) f(x,m+1,r) end end def sum(l,r,l2,r2) if $hs.key?([l,r])==false return 0 else if r=xy[0][0]) f(-ab.shift[1],0,rmax) end while xy.empty? ==false && (ab.empty? ==true || xy[0][0]>ab[0][0]) e1=xy.shift ans<<[sum(0,rmax,0,-e1[1]),e1[2]] end end ans=ans.sort.reverse ans2=[] if ans.empty? == true || ans[0][0]==0 puts 0 else e=ans[0][0] while ans.empty? == false && ans[0][0]==e ans2<