diff --git a/fzn-parser/fznslurp.pl b/fzn-parser/fznslurp.pl
new file mode 100644
index 0000000..ba2f8c3
--- /dev/null
+++ b/fzn-parser/fznslurp.pl
@@ -0,0 +1,7 @@
+% == No, Emacs this is -*-Prolog-*- code, not what you thought... =============
+
+load_ast(AST) :- load_ast(_>[], [], AST).
+
+load_ast(end_of_file, AST, AST).
+load_ast(IN > INT,    IN,  OUT) :- read(OP), load_ast(OP, INT, OUT).
+
--
libgit2 0.21.2