count_o st = [c | c <- st, c `elem` ['o']]
score :: [Char] -> Int
-- Implement code below
score w = 700 + 100 * length (count_o w) 



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