public class prigraming
    shared function Main as Integer
        dim line as string
        while True
            line=Console.ReadLine()
            if line is nothing
                exit while
            end if
            dim counter as integer = 0
            for each c as char in line
                counter = counter + if(c = "o"c, 1, 0)
            next
            Console.WriteLine (700 + 100 * counter)
        end while
        return 0
    End function
End class

