val snippet = fn s =>

{cdata s}

 val main : unit -> transaction page = fn () => return {snippet "