use strict;

my $id = $ARGV[0];
my $in = 0;

open( FILE, "histograms/$id.histogram" );
while ( <FILE> ) {
	chomp;
	if ( $in == 1 ) {
		if ( /^}/ ) {
			$in = 0;
		}
	}
	if ( $in == 0 ) {
		if ( /^Comment={/ ) {
			s/^Comment={//;
			$in = 1;
		}
	}
	if ( $in == 1 ) {
		/^  *([0-9]*): \((...),(...),(...)\).*$/ or die "error";
		my $r = $2;
		my $g = $3;
		my $b = $4;
		my $c = $1;
		$r =~ s/^ *//;
		$g =~ s/^ *//;
		$b =~ s/^ *//;
		$r = sprintf("%2X",$r);
		$g = sprintf("%2X",$g);
		$b = sprintf("%2X",$b);
		$r =~ s/ /0/g;
		$g =~ s/ /0/g;
		$b =~ s/ /0/g;
		print "$r$g$b:$c\n";
	}
}
close(FILE);