program AESE
    implicit none
    integer :: i=0,j=0
    character(1) str(4)

    read(*,*) str
    do i=1,4
        if(str(i) == '+')then
            j = j+1
        else if(str(i) == '-')then
            j = j-1
        else
        endif
    enddo
    write(*,*) j

end program AESE