import Control.Applicative
import Data.List
 
main :: IO ()
main = do
    s <- getLine
    putStrLn $ show (solve (sort s))
    
solve :: String -> Int 
solve s | "ooo" == s = 1000
        | "oox" == s = 900
        | "oxx" == s = 800
        | "xxx" == s = 700