{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverloadedLists #-}

module Main where

import qualified Data.Text as T
import qualified Data.Text.IO as T
import Data.List
import Control.Applicative
import Control.Monad
import Data.Char
import Data.Maybe
import qualified Data.Map.Lazy as M

main :: IO ()
main = do
  input <- T.getLine
  print $ solve input

solve :: T.Text -> Int
solve order = baseValue + toppinValue * toppingNum
  where
    toppingNum = T.foldl (\temp t -> if t == 'o' then temp + 1 else temp) 0 order
    baseValue = 700
    toppinValue = 100
