(defvar S)
(defvar sum)
(setq sum 0)
(setq S (read-line))
(loop for c across S do
  (if (digit-char-p c ) (setq sum (+ sum (digit-char-p c)))))
(format 't "~d~%" sum)