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