diff --git a/m1rc3/norruption/2/collda b/m1rc3/norruption/2/collda
new file mode 100755
index 0000000..3acd11b
--- /dev/null
+++ b/m1rc3/norruption/2/collda
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+while (<>) {
+	if (/^=== (\d+) ==/) {
+		$c = $1;
+		next;
+	}
+	next unless /Checking : (\S+)\s+CRC failed.* got (\S+)\)/;
+	$n++;
+	$c{$n} = $c;
+	next if $1 eq "standby.fpg";
+	next if $last{$1} eq $2;
+	if (defined $h{$n}) {
+		$h{$n} .= ", ".$1;
+	} else {
+		$h{$n} = $1;
+	}
+	$last{$1} = $2;
+}
+
+for (sort { $a <=> $b } keys %h) {
+	print "$_ ($c{$_}): ", $h{$_}, "\n";
+}