adamc@135: val snippet = fn s => <body>
adamc@135:         <h1>{cdata s}</h1>
adamc@135: </body>
adamc@135: 
adamc@135: val main = fn () => <html><body>
adamc@135:         {snippet "<Hi."}
adamc@135:         {snippet "Bye."}
adamc@135: </body></html>