main :: IO ()                                                                                                              
main = do
  a <- getLine
  let n = length $ filter (=='o') a
  putStrLn $ show ( 700 + n * 100)