func main()
	var n: int :: cui@inputInt()
	var s: []char :: cui@input()
	for i(0, n - 1)
		if(s[i] <> 'Q')
			do cui@print("-1\n")
			ret
		end if
	end for
	for i(1, n)
		if(i ^ 2 = n)
			do cui@print("Q".repeat(i) ~ "\n")
			ret
		end if
	end for
end func