(define (addition str)
  (fold + 0 (map digit->integer (filter char-numeric? (string->list str)))))

(define (main args)
  (print (addition (read-line))) 0)