while(<>){
	($a, $b)=split/ /;
	print $a - $b, " ";
	print (($a+0)-($b+0), " ");
	use bigint;
	print $a - $b, " ";
	print (($a+0)-($b+0), "\n");
	}