main = do
  li <- getLine
  let [_, x] = map read $ words li
  li <- getLine
  let ls = map read $ words li
  let ans = compute x ls
  print ans

compute :: Int -> [Int] -> Int
compute x ls = length $ takeWhile (x >=) $ scanl (+) 0 ls
