$,=$"; $\=$/; $n=<>; if(fork()){ @a=grep<>-1,1..$n; print "!",@a+0,@a; }else{ for(1..$n){ print "?",$n-1,1..$_-1,$_+1..$n; } }