#!/bin/sh
find 20* -type f -name '*.*' | \
  egrep '(go|py|scm|c|pl)$' | \
  xargs wc -l | \
  grep -v total | \
  awk '{ split($2, a, "."); s[a[2]] += $1 } END { for (k in s) { printf("%s\t%d\n", k, s[k]) }}' |\
  sort -n -k 2 -r |\
  sed -e 's/py/Python/' \
      -e 's/go/Golang/' \
      -e 's/pl/Perl/'   \
      -e 's/scm/Scheme/' \
      -e 's/c\>/C/'