readme

Main.hs

@@ -2,6 +2,7 @@ module Main where
 
 import Logic.Parse (eof, mkInput, ParseError(..))
 import Logic.Statement.Parse (stmt)
+import Logic.Statement.Eval (bucket)
 import Logic.Statement.Serialize (serializeLatexTruthTable)
 
 main :: IO ()
@@ -11,6 +12,7 @@ main = do
     Left err -> fail err
     Right statement -> do
       putStrLn $ show statement
+      putStrLn $ show $ bucket statement
       putStr $ serializeLatexTruthTable statement
   where
     fail err@(ParseError pos message) =