sub p{$|=print"? @_\n";<>} $b=p 0,0,0; $a=p -1,0,0; $c=p 1,0,0; $x=($c-$a)/(2*$b-$c-$a)/2; $a=p 0,-1,0; $c=p 0,1,0; $y=($c-$a)/(2*$b-$c-$a)/2; $a=p 0,0,-1; $c=p 0,0,1; $z=($c-$a)/(2*$b-$c-$a)/2; print"! $x $y $z\n"