adamc@119: val pC : xhtml =
adamc@119: Page C
adamc@119:
adamc@119:
adamc@119: val pB : xhtml =
adamc@119: Page B
adamc@119:
adamc@119: C
adamc@119:
adamc@119:
adamc@119: val pA : xhtml =
adamc@119: Page A
adamc@119:
adamc@119: B
adamc@119: C
adamc@119:
adamc@119:
adamc@119: val main : unit -> xhtml = fn () =>
adamc@119: Main
adamc@119:
adamc@119: A
adamc@119: B
adamc@119: C
adamc@119: