#!/usr/bin/env gosh

(define (main _)
  (let ([s (read-line)])
    (display
     (apply +
	    (map (^x (- (char->integer x) 48))
		 (filter char-numeric? (string->list s)))))
    )
  (newline)
  0)