1 files changed, 10 insertions, 0 deletions
diff --git a/bin/mw.awk b/bin/mw.awk
new file mode 100644
index 00000000..8af28312
--- /dev/null
+++ b/bin/mw.awk
@@ -0,0 +1,10 @@
+# Crude approach to get alphabetic words one per line from input, not sorted or
+# deduplicated
+BEGIN {
+    FS = "(--|['_-]*[^a-zA-Z0-9_'_-]+['_-]*)"
+}
+{
+    for (i = 1; i <= NF; i++)
+        if ($i ~ /[a-zA-Z]/)
+            print $i
+}