import Hope.Markup
import Hope.Markup.XHtml
import Text.XHtml
import System.Environment
import System.IO
prefs = defaultMarkupXHtmlPrefs
wrapHtml h = body << h
main = do input <- getContents
mhtml <- markupToHtml prefs input
case mhtml of
Left err -> hPutStrLn stderr err
Right html -> putStrLn $ renderHtml $ wrapHtml html