@a=++$|..<>;
do{
	print"? @q"," 0"x2x(@a-@q),$/;
	/ /,${$`}[$']=getc eq'>'||-1,getc for@q;
	<>;
	@u=@q=();
	@a=sort{$$a[$b]|$u[$a]|$u[$b]||($u[$a]=$u[$b]=push@q,"$a $b")}@a
}while@q;
print"! @a"