Modify loker.hs to dump parse tree and state

loker.hs

@@ -2,14 +2,18 @@ module Main where
 import System.Environment
 import System.Exit
 import Parse
-import Parsec (parse)
+import Parsec
 
 main = do
     args <- getArgs
     s <- if null args 
             then getContents
             else readFile (head args)
-    let res = parse program (if null args then "" else head args) s
+    let program_and_state = do
+            p <- program
+            s <- getState
+            return (p,s)
+    let res = parse program_and_state (if null args then "" else head args) s
     case res of
-        Right _ -> do putStrLn "OK"; exitSuccess
+        Right s -> do print s; exitSuccess
         Left m  -> do print m; exitFailure