From 2db9b0ea680db6a80312a966ad2225a4908e9a5a Mon Sep 17 00:00:00 2001
From: "Barak A. Pearlmutter" <barak+git@cs.nuim.ie>
Date: Thu, 9 Dec 2010 08:33:15 +0000
Subject: [PATCH] head to head: Scheme vs awk!

---
 remove-extra-blank-lines.awk | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100755 remove-extra-blank-lines.awk

diff --git a/remove-extra-blank-lines.awk b/remove-extra-blank-lines.awk
new file mode 100755
index 0000000..37f9a62
--- /dev/null
+++ b/remove-extra-blank-lines.awk
@@ -0,0 +1,3 @@
+#!/usr/bin/awk -f
+/^$/ && !f {print; f=1}
+/./ {print; f=0}