blob: 9a1d271aeb58ca8801bfc392fddbd32eab5cb6a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
fun wooho (wrap : xbody -> transaction page) =
let
fun subPage n =
let
fun subberPage () = wrap <xml>{[n]}</xml>
in
wrap <xml><a link={subberPage ()}>Go</a></xml>
end
in
subPage 0
end
fun wrap x = return <xml><body>{x}</body></xml>
fun main () = wooho wrap
|
