module Main where

import MdToHTML

main :: IO ()
main = do
   let res = fst $ leftmostLongestParse parseDocument "# _Hello_\n\n # Hello"
   putStrLn (show res)