$n=<>; if(fork){ $s=$n*($n+1)/2; for(reverse 2..$n-1){ $p[$_]=$s+0-($s=<>); } $p[1]=<>-$p[2]; $p[0]=$s-$p[1]; print"! @p\n"; }else{ for(reverse 2..$n-1){ print"? 1 $_\n"; } print"? 2 3\n"; $|=1; }