BSD 4.3reno
{ x[substr($2, 1, 1)] += $1 } END { for (i in x) print i, x[i] }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.