Option Strict On

Module Module1
    Dim S As String
    Dim i, ans As Int32

    Sub Main()
        'let'
        S = Console.ReadLine()

        'var'
        ans = 700

        For i = 0 To Len(S) - 1
            If S(i) = "o"c Then ans += 100
        Next

        Console.WriteLine(ans)

    End Sub
End Module