a=$<.read.split _,m,k=a.shift(3).map &:to_i o=a.shift b=a.shift(m).map &:to_i a=a.map(&:to_i).sort c=a.size p b.map{|e|c-((0...c).bsearch{|i|e.send(o,a[i])>=k}||c)}.sum