(define s (read))

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