import           Data.Char
import qualified Data.ByteString.Char8 as B
import qualified Data.Vector.Unboxed   as U

main :: IO ()
main = do
  [n, x] <- map read . words <$> getLine
  ls <- U.unfoldrN n (B.readInt . B.dropWhile isSpace) <$> B.getLine
  print $ solve x ls

solve :: Int -> U.Vector Int -> Int
solve x = U.length . U.filter (<= x) . U.scanl' (+) 0