main :: IO()
main = do
    str <- getLine
    print $ 700 + 100 * (getos str)



getos :: String -> Int
getos str
    | str == [] 			= 0
    | head str == 'o'		= 1 + getos (tail str)
    | otherwise				= getos ( tail str)