#!/usr/bin/env perl

while ($l = getc)
	if ($l =~ /[a-zA-Z]/)
		++$c{$l};

foreach $l in sort keys %c 
	print $l, $c{$l}, "\n"