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

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

str2Bool :: String -> [Bool]
str2Bool s = map (\c -> if c == 'o' then True else False) 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)