Module Module1

    Sub Main()
        Dim s = Console.ReadLine()
        Dim i As Integer = 0
        For j As Integer = 0 To s.Length - 1
            If s.Substring(j, 1) = "o" Then i += 100
        Next
        Console.WriteLine(i + 700)
    End Sub
End Module
