func main()
	var n: int :: cui@inputInt()
	var a: []int :: [3, 5, 17, 257, 65537]
	var ans: int :: 0
	for i(0, 31)
		var ii: int :: i
		var x: int :: 1
		for j(0, 4)
			if(ii % 2 = 0)
				do x :* a[j]
			end if
			do ii :/ 2
		end for
		
		while(x <= n)
			do x :* 2
			do ans :+ 1
		end while
	end for
	do ans :- 2
	do cui@print("\{ans}\n")
end func