Module Module1

    Sub Main()
        Dim tmp As String = Console.ReadLine()
        Dim s1 As Char = tmp(0)
        Dim s2 As Char = tmp(1)
        Dim s3 As Char = tmp(2)

        Dim s As String = Join({s1, s2, s3}, "")
        Dim ans As Long = 0

        For Each c As Char In s
            ans = ans + CLng(c & "")
        Next

        Console.WriteLine(ans)

    End Sub

End Module