wip

diff --git a/parse-input-graph b/parse-input-graph
new file mode 100755 (executable)
index 0000000..8b5a16d
--- /dev/null
+++ b/parse-input-graph
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+our %region;
+# $region{NAME}{Colour}[]{Name}
+# $region{NAME}{Adj}[]{Name}
+# $region{NAME}{Adj}[]{Regexp}
+# $region{NAME}{Adj}[]{Dikes}
+