diff --git a/app/Main.hs b/app/Main.hs
index 1b4c972..64cbe5f 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -4,5 +4,5 @@ import MdToHTML
 
 main :: IO ()
 main = do
-   let res = leftmostLongestParse parseLine "## Hello ___world___"
+   let res = fst $ leftmostLongestParse parseDocument "# _Hello_\n\n # Hello"
    putStrLn (show res)