main = do
  [n,x] <- map read . words <$> getLine
  ls <- map read . words <$> getLine
  print $ length $ filter (<=x) $ 0 : b 0 ls 

b :: Int -> [Int] -> [Int] 
b _ [] = []
b n [x] = [n + x]
b n (x:xs) = let d = n + x in d : b d xs