func main()
	var t: int :: cui@inputInt()
	for(1, t)
		var ans: int :: 11
		var s: []char :: cui@input()
		for i(0, ^s - 11)
			for j(i + 4, ^s - 7)
				do ans :: [ans, f(i, j, s)].min()
			end for
		end for
		do cui@print("\{ans}\n")
	end for

	func f(i: int, j: int, s: []char): int
		var res: int :: 0
		for ii(0, 3)
			do res :+ s[i + ii] <> "good"[ii] ?(1, 0)
		end for
		for ii(0, 6)
			do res :+ s[j + ii] <> "problem"[ii] ?(1, 0)
		end for
		ret res
	end func
end func