(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((s (read-line))
         (n (length s)))
    (format t "~d~%"
      (loop for i from 1 below n
            count (char/= (aref s i) #\0)))))

(main)