#!/usr/bin/perl
while (<STDIN>) { 
	$count{$1}++ if  /^Priority: (.*)$/; 
} 
foreach $priority (sort { $count{$a} <=> $count{$b} } keys %count) { 
	print "$count{$priority},$priority\n";
}

exit 0;