#!/usr/bin/env perl

while (<>) {
	foreach $l (/([a-zA_Z])/g) {
		++$c{$l};
	}
}

foreach $l (sort keys %c) {
	print "$l $c{$l}\n"
}