diff --git a/app/Main.hs b/app/Main.hs
index 957f9ba..5ca2c2d 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -24,4 +24,7 @@ main = do
     [] -> getContents
     x : _ -> readFile x
   let res = leftmostLongestParse parseDocument fileContents
-  print res
+  let toPrint = show res
+  case reverse toPrint of
+    '\n' : _ -> putStr toPrint
+    _ -> putStrLn toPrint