func main()
	var s: []char :: cui@input()
	var cnt: int :: 0
	var flag: bool :: true
	for i(0, ^s - 1)
		if(s[i] = '1')
			do cnt :+ 1
		end if
		if(i > 1 & s[i] = '1' & s[i - 1] = '0')
			do flag :: false
		end if
	end for
	
	var ans: bool :: cnt = 2 | cnt > 2 & flag
	do cui@print((ans ?("Yes", "No")) ~ "\n")
end func