program main
implicit none
integer :: i, n
character(len=4) :: s

read(*,*) s
n=0
do i = 1, 4
   if ( s(i:i) == '+' ) then
      n = n + 1
   else
      n = n - 1
   end if
end do

write(*,'(i0)') n


end program main
