module Main where
import Control.Monad
import Graph
import Pretty
import Parse
import Inline
import ToC

test1 = do Right defs <- parseFile "prelude.mpdl"
           return (pretty (inline defs))

test2 = do Right defs <- parseFile "prelude.mpdl"
           putStr (unlines $ map (show.uncurry toC) $ inline defs)