#!/usr/bin/perl

use strict;

my %freq;
foreach my $id (0 .. shift || 499)
{
	print STDERR "$id\n";
	my @freqs = keys %{{
		map { /= (\d{4})/; $1 => 1 }
		grep { /^RXfreq/ }
		`./sik_map $id`
	}};

	$freq{$_}{$id}++ for @freqs;
}

foreach my $freq (sort keys %freq)
{
	print "$freq:\t";
	print join(" ", sort { $a - $b } keys %{$freq{$freq}}) . "\n";
}