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