$l[@l]=<>for++$|..<>;print"? 0 0\n? 1 0\n!\n";($a,$b,$c,$d)=glob<>.<>;$c-=$a;$d-=$b;/ /,print$a+$`*$c-$'*$d,$",$b+$`*$d+$'*$c,$/for@l