module Main where

import MdToHTML

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