main = do 
    [n, x] <- map (read :: String -> Int). words <$> getLine
    l <- map (read :: String -> Int). words <$> getLine
    print $ 1 + solve x 0 l
    where
        solve k d [] = 0
        solve k d (x:xs) = 
            if (nextd <= k)
            then 
                1 + solve k nextd xs
            else
                solve k nextd xs
            where
                nextd = d + x

