#!/usr/bin/perl

%words = ();

while ( <STDIN> ) {
	chomp;
	$words{ lc( $_ ) } ++;
}

foreach my $word ( sort keys %words ) {
	print "$word;$words{ $word }\n";
}