isTrue :: Char -> Bool
isTrue str = if str == 'o' then True else False

countTrue :: [Bool] -> Int
countTrue list = length $ filter (\x -> x) list

main = do
	s <- getLine
	let list = map isTrue s
	let price = 700 + 100 * (countTrue list)
	putStrLn $ show price
