import Control.Monad
import Text.Printf
import Control.Applicative
import Data.List as L

main :: IO()
main = do
  x <- getLine
  printf "%d" $ (700) + 100 * (sum $ map conv x)

conv :: Char -> Int
conv 'o' = 1
conv _ = 0