(define s (read))

(fold + 0 (filter integer? (map digit->integer (string->list s))))