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