func main()
	var s: []char :: cui@input()
	var nums: []int :: [1, 0, 0, 0, 1, 0, 1, 0, 2, 1]
	var ans1: int :: 1 + ^s * 2
	for i(0, ^s - 1)
		do ans1 :+ nums[s[i] $ int - '0' $ int]
	end for
	var ans2: int :: 2 + ^s
	for i(0, ^s - 1)
		do ans2 :+ 2 * nums[s[i] $ int - '0' $ int]
	end for
	var ans: int :: [ans1, ans2].min()
	do cui@print("\{ans}\n")
end func