PROGRAM MAIN
    IMPLICIT NONE
    CHARACTER(10000) :: S
    INTEGER :: LENGTH, CODE, ANS = 0, I

    READ *, S
    LENGTH = LEN_TRIM(S)

    DO I = 1, LENGTH
        CODE = IACHAR(S(I:I))

        IF (CODE >= IACHAR('1') .AND. CODE <= IACHAR('9')) THEN
            ANS = ANS + CODE - IACHAR('1') + 1
        END IF
    END DO
    
    PRINT *, ANS
END PROGRAM MAIN