import Data.List (scanl)

main = getLine >>= mapM_ print . solve

solve :: String -> [Double]
solve s = map (\(o, n) -> fromIntegral o / fromIntegral n * 100) $ init $ scanl f (o, n) s
  where
    o = length $ filter (=='o') $ s
    n = length s

    f :: (Int, Int) -> Char -> (Int, Int)
    f (o, n) 'o' = (o - 1, n - 1)
    f (o, n) 'x' = (o    , n - 1)