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