#!/usr/bin/perl
open(I,"run.out");
while($l=<I>) {
	$l=~s/^[\s]+//g;
	if($l) {
		($a,$b,$z)=split(/[\s]+/,$l);
		if($a>255) { $a=$a-512;}
		if($b>255) { $b=$b-512;}
		$k=abs($a-$b);
		if($z != $k) {
			print "$a:$b:$z=$k\n";
		}
	}
}
close(I);