(define yuki289
  (display (apply + (map (^c (- (char->integer c) (char->integer #\0))) (filter char-numeric? (string->list (read-line)))))))