#!/afs/athena/contrib/perl/p -n

if (/[\*\.]([a-zA-Z]*):/) {
    $color = $1 . ++$num{$1};
} else {
    $color = "color" . ++$num{"color"};
}

if (/#([0-9a-fA-F]{4})([0-9a-fA-F]{4})([0-9a-fA-F]{4})\s/) {
    printf ("%3d %3d %3d\t\t\t%s\n",
	    hex($1)>>8, hex($2)>>8, hex($3)>>8,
	    $color);
} elsif (/#([0-9a-fA-F]{3})([0-9a-fA-F]{3})([0-9a-fA-F]{3})\s/) {
    printf ("%3d %3d %3d\t\t\t%s\n",
	    hex($1)>>4, hex($2)>>4, hex($3)>>4,
	    $color);
} elsif (/#([0-9a-fA-F]{2})([0-9a-fA-F]{2})([0-9a-fA-F]{2})\s/) {
    printf ("%3d %3d %3d\t\t\t%s\n",
	    hex($1), hex($2), hex($3),
	    $color);
} elsif (/#([0-9a-fA-F])([0-9a-fA-F])([0-9a-fA-F])\s/) {
    printf ("%3d %3d %3d\t\t\t%s\n",
	    hex($1)<<4, hex($2)<<4, hex($3)<<4,
	    $color);
}