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>