#!/usr/bin/perl
# Convert debug output of Workshop Clock IR Receiver to our raw format

my ($key) = @ARGV or die;
print $key;
my $sep = "\t";

while (<STDIN>) {
	chomp;
	next if /^$/;
	s{^IR:\s*}{};
	my ($a, $b) = split /\s+/;
	print "$sep$a $b";
	$sep = ' ';
}
print "\n";