import Control.Monad

parse :: String -> ([Int] , Int , Int)
parse xs = case read ("(" ++ xs ++ ")") of
    (l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,v1,v2) -> ([l1,l2,l3,l4,l5,l6,l7,l8,l9,l10],v1,v2)
    
meetAt :: Int -> Int -> Int -> Double
meetAt l v1 v2 = fromIntegral (v1 * l) / fromIntegral (v1 + v2)

station :: [Int] -> Double -> Int
station (l:ls) x
    | fromIntegral l < x = 1 + station ls (x - fromIntegral l)
    | otherwise = 1

solve :: ([Int] , Int , Int) -> IO ()
solve (ls , v1 , v2) = print $ station ls $ meetAt (sum ls) v1 v2
    
main :: IO ()
main = getContents
    >>= mapM_ solve . map parse . lines

-- L1 = v1 * t
-- L2 = v2 * t
-- L1 + L2 = l
-- v1 * t + v2 * t = l
-- (v1 + v2) * t = l
-- t = l / (v1 + v2)
-- L1 = v1 * (l / (v1 + v2))