loop do
    n, w = gets.split.map &:to_i    
    break if n == 0
    count = Hash.new(0)
    n.times do
        count[gets.to_i / w] += 1    
    end 
    m = count.values.max.to_f
    l = count.keys.max.to_f
    p (0..count.keys.max).map{|i| (l - i) / l * count[i] / m}.inject(:+) + 0.01
end