diff --git a/sys/locdiff b/sys/locdiff
index 4eafdacc3a..42c58c8d76 100755
--- a/sys/locdiff
+++ b/sys/locdiff
@@ -1,4 +1,5 @@
 #!/bin/sh
+# alias locdiff='echo $((`git diff |grep ^+ | wc -l`-`git diff |grep ^- | wc -l`))'
 #A=`hg diff $@ | grep -v '+++' | grep ^+ |wc -l`
 #B=`hg diff $@ | grep -v -- '---' | grep ^- |wc -l`
 A="$(git diff "$@" | grep -v '+++' | grep -c ^+)"
diff --git a/sys/lochist b/sys/lochist
new file mode 100755
index 0000000000..4fe9113f0e
--- /dev/null
+++ b/sys/lochist
@@ -0,0 +1,16 @@
+#!/bin/sh 
+TAGS=`git tag| grep -e  '^\d\..\.' | grep -v '\d-'`
+control_c() {
+  echo "^C"
+  rm -rf r2loc
+  exit 1
+}
+trap control_c 2
+rm -rf r2loc
+git clone -q . r2loc || exit 1
+for a in $TAGS ; do
+	(cd r2loc && git checkout -q $a)
+	printf "$a "
+	find r2loc/libr r2loc/binr -type f -iname '*.c'|xargs cat |wc -l
+done
+rm -rf r2loc