adamc@453: fun wooho (wrap : xbody -> transaction page) =
adamc@453: let
adamc@453: fun subPage n =
adamc@453: let
adamc@453: fun subberPage () = wrap {[n]}
adamc@453: in
adamc@453: wrap Go
adamc@453: end
adamc@453: in
adamc@453: subPage 0
adamc@453: end
adamc@453:
adamc@453: fun wrap x = return {x}
adamc@453:
adamc@453: fun main () = wooho wrap