count_score :: [Char] -> Int
-- Implement code below
count_score = (+700). sum. map f
  where f 'o' = 100
        f 'x' = 0



-- IO related, you don't have to modify it.
main = getLine >>= print. count_score
