(define s (read))

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