sumCheck :: Int -> [Int] -> Int                                             
 sumCheck n xs = if n < (sum xs)
                     then sumCheck n (take (length(xs) - 1) xs)
                     else sum xs
  
 solve (l:_:xs) = sumCheck l xs
  
 main :: IO ()
 main = interact $ show . solve . map read . words