$e=1e18|1;
<>;@b=<>;
$m=1;
for(0,1){
	@a=2-$m;$m=1;
	for(0..$#b){
		push@a,$v=($b[$_]-$a[$_])*(-1)**$_;
		$m=$v if $m>$v;
		$m=$e-$v if $m>$e-$v;
	}
}
print $m<1?-1:join$/,@a+0,@a