1	{ x[substr($2, 1, 1)] += $1 }
2END	{ for (i in x)
3		print i, x[i]
4}
5