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