diff --git a/Makefile b/Makefile
index 7a2d4cb..49e39df 100644
--- a/Makefile
+++ b/Makefile
@@ -25,6 +25,7 @@ sh:
 	cp -f sh/start $(DESTDIR)$(PREFIX)/bin
 	cp -f sh/proxtest $(DESTDIR)$(PREFIX)/bin
 	cp -f sh/pco $(DESTDIR)$(PREFIX)/bin
+	cp -f sh/git-survey $(DESTDIR)$(PREFIX)/bin
 
 mkc:
 	cc c/scream.c -o c/scream
diff --git a/sh/git-survey b/sh/git-survey
new file mode 100755
index 0000000..2dac26c
--- /dev/null
+++ b/sh/git-survey
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+for i in $(ls); do
+	cd $i
+	exists=$(
+		git status |\
+		grep 'Your branch is ahead of ' |\
+		wc -l
+	)
+
+	[ "$exists" -eq 0 ] || printf "> %s\n" "$i"
+	cd ..
+done