#!/bin/sh
#
# print letter frequency

cat "$@" | tbl | pic | nroff -ms -Tlocale 2>/dev/null |
        tr -cd 'A-Za-zÄÖÜäöüß'|tr A-ZÄÖÜ a-zäöü |
	sed 's,.,&\n,g'| sort |uniq -c | awk '
{sum+=$1; a[$2]=$1;}
END {for (x in a) {printf("%s\t%.2f\t%4d\n", x, a[x]/sum, a[x])} }
'| sort -nr -k 3