git ls-tree -r HEAD | sed -Ee 's/^.{53}//' | \\
while read filename; do file "$filename"; done | \\
grep -E ': .*text' | sed -E -e 's/: .*//' | \\
while read filename; do git blame --line-porcelain "$filename"; done | \\
sed -n 's/^author //p' | \\
sort | uniq -c | sort -rn