sub Q{$|=print"? @q
";<>}map{$w.=$".-.5/(2*Q(@q=(0)x3)-($a=Q$q[$_]=-1)-Q$q[$_]=1)*($a-Q)}0..2;print"!$w
"