xref: /freebsd/contrib/one-true-awk/testdir/t.in2 (revision 23f24377b1a9ab6677f00f2302484d6658d94cab)
1*23f24377SWarner Losh	{ x[substr($2, 1, 1)] += $1 }
2*23f24377SWarner LoshEND	{ for (i in x)
3*23f24377SWarner Losh		print i, x[i]
4*23f24377SWarner Losh}
5