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