adam@9: open Parse
adam@9: open Html
adam@9:
adam@9: val parser = format (b, i, a)
adam@9:
adam@9: fun parse r =
adam@9: case parser r.Source of
adam@9: Failure s => error Bad HTML: {[s]}
adam@9: | Success x => return
adam@9: Here it is:
adam@9:
adam@9: {x}
adam@9:
adam@9:
adam@9: fun main () = return
adam@9:
adam@9: