program main
implicit None
	character(len =100000)::s
	integer::i,a=1,b=0
    !"0*"が頭だとエラー？
    
	s = "a"
	read (*,"(a)")s
	
	do i = 1,100000
		if(s(i:i) == "0")then
			b = 1
		endif
		if(s(i:i) == "+")then
			if(b == 0)then
				a = a+1
			endif
			b =0
		endif
	enddo
	
	if(b == 1) a = a-1
	
	print"(i0)",a
end program main