1 files changed, 4 insertions, 0 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 0a1ba8f..5b9ed07 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -37,3 +37,7 @@ main = do
           ]
   ppr interp
   ppr res
+
+{-
+ppr $ let { Right l = parse lexPrlg "stdin" "c(cc(X)) :- a, b. " ; Right p = parse parsePrlg "stdin" l; clause:_ = map (ast2prlg defaultOps) p; ((StrTable _ strfwd strback),codei) = strtablizePrlg emptystrtable clause } in compileRule (Id (strfwd M.! ":-") 2) (Id (strfwd M.! ",") 2) codei
+ -}