{-# LANGUAGE FlexibleContexts, OverloadedStrings #-}
import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromJust)
import Text.Printf
import Debug.Trace

solve [] _ = return ()
solve (s:ss) (o,x) = print (fromIntegral o / (fromIntegral (o+x)) * 100) >> solve ss (if s == 'o' then (o-1,x) else (o,x-1))

main = do
  s <- getLine
  let o = length $ filter (=='o') s
  let x = length s - o
  solve s (o,x)