4.4BSD/usr/src/contrib/gawk-2.15.2/test/poundbang
#! /tmp/gawk -f { ccount += length($0) } END { printf "average line length is %2.4f\n", ccount/NR}