split Logic.Statement into files, simpler serialization

Main.hs

@@ -1,12 +1,17 @@
 module Main where
 
 import Logic.Parse (eof, mkInput, ParseError(..))
-import Logic.Statement (stmt)
+import Logic.Statement.Parse (stmt)
+import Logic.Statement.Serialize (serializeLatexTruthTable)
 
 main :: IO ()
 main = do
   line <- getLine
-  either fail print $ eof stmt $ mkInput line
+  case eof stmt $ mkInput line of
+    Left err -> fail err
+    Right statement -> do
+      putStrLn $ show statement
+      putStr $ serializeLatexTruthTable statement
   where
     fail err@(ParseError pos message) =
       putStrLn $