4.4BSD/usr/src/old/awk/test/t.in2
{ x[substr($2, 1, 1)] += $1 } END { for (i in x) print i, x[i] }