Option Strict On

Module Module1
    Sub Main()
        'let'
        Dim S As String = Console.ReadLine()

        'var'
        Dim ans As Long = 700

        For Each c As Char In S
            If c = "o"c Then ans += 100
        Next

        Console.WriteLine(ans)

    End Sub
End Module