(defun main (&rest argv)
  (declare (ignorable argv))
  (princ (loop for x across (read-line)
               sum (if (char= x #\0) 10 (digit-char-p x))))
  (terpri))
(main)