import Control.Applicative ((<$>))

main :: IO ()
main = solve <$> getLine >>= mapM_ print

solve :: String -> [Double]
solve s = f [] (length $ filter (== 'o') s) (length s) s
  where
    f ds _ _ [] = reverse ds
    f ds t b (x:xs) = let p = (fromIntegral t) / (fromIntegral b) * 100
                      in if x == 'o' then f (p:ds) (t-1) (b-1) xs
                         else f (p:ds) t (b-1) xs