Imports System

Public Class Test
	Public Shared Sub Main()
		Console.WriteLine(countNumbers(Console.ReadLine()))
	End Sub
	Public Shared Function countNumbers(byRef str As String) As Integer
		Dim counter, number As Integer
		Dim letter As Char
		counter = 1
		number = 0
		while counter < Len(str) Then
		do
			letter = str.Chars(counter)
			counter +=1
			If letter = "0" OR letter = "1" OR letter = "2" OR letter = "3" OR letter = "4" OR letter = "5" OR letter = "6" OR letter = "7" OR letter = "8" OR letter = "9" Then
			number +=1
			End If 
		End do
		return number
	End Function
End Class