val subpage : string -> transaction page = fn s => return {cdata s} val main : unit -> transaction page = fn () => return Door #1 Door #2