This is a similar question to
how to make HTML from a list in scheme, racket
I have some definitions:
An HTML(H) is one of
