program eating_symbols_easy
  implicit none
  character(4) :: s
  integer :: i, n = 0
  read(*,*) s
  do i = 1, 4
    n = n+merge(1,-1,s(i:i) == '+')
  end do
  write(*,'(i0)') n
end program eating_symbols_easy