func main()
	var n: int :: cui@inputInt()
	var ok: int
	var ng: int
	for(1, n)
		var t: int :: cui@inputInt()
		var s: []char :: cui@inputStr()
		
		var typeMax: int :: t * 12 / 1000
		var sLen: int :: ^s
		
		var type: int :: [typeMax, sLen].min()
		var miss: int :: sLen - type
		do ok :+ type
		do ng :+ miss
	end for
	do cui@print("\{ok} \{ng}\n")
end func