val subpage : string -> transaction page = fn s => return

{cdata s}

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

Door #1

Door #2