print "     $_\t\t:  $seen{$_}\n" for sort keys %seen;