sub p{$|=print"? @_\n";<>} for(0..2){ $b=p@q=(0)x3; $q[$_]=-1;$a=p@q; $q[$_]=1;$c=p@q; push@w,($c-$a)/(2*$b-$c-$a)/2; } print"! @w\n"