import Data.List.Split
main = do
    line <- getContents
    let dataSet = map (map read.splitOn ",").lines $ line
        result = map (\list -> getZone (take 10 list) (list !! 10) (list !! 11)) dataSet
    mapM_ print result


getZone distList v1 v2 = fst.head.filter (\(i,b) -> b).map (fmap (isInRange d)).zoneBound $ distList
    where d = midDistance distList v1 v2

isInRange d (l,r) = d > l && d <= r

zoneBound distList = zip [1..10] boundlist
    where boundlist = zip sumOfDistance (tail sumOfDistance)
          sumOfDistance = scanl (+) 0 distList

midDistance distList v1 v2 = v1*t
    where t =sum distList / (v1+v2)