adamc@119: val pC : unit -> xhtml = fn () =>
adamc@119: Page C
adamc@119:
adamc@119:
adamc@119: val pB : unit -> xhtml = fn () =>
adamc@119: Page B
adamc@119:
adamc@119: C
adamc@119:
adamc@119:
adamc@119: val pA : unit -> xhtml = fn () =>
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: