Imports System.Linq

Module Module1

sub Main(ByVal args() as String)
    dim s as String

    s=Console.ReadLine()
    dim e = s.toList

    Console.WriteLine(e.Where(Function(x) x="1").Count)
end sub

end Module