main :: IO ()
main = do
  s <- getLine
  putStrLn . show . solve $ s


solve :: String -> Int
solve = solve' . str2Bool

str2Bool :: String -> [Bool]
str2Bool s = map f s
  where
    f :: Char -> Bool
    f c
      | c == 'o'  = True
      | otherwise = False

solve' :: [Bool] -> Int
solve' [] = 700
solve' (x:xs) = (if x then 100 else 0) + solve' xs
