1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
table t : { Id : int, Parent : option int, Nam : string } open TreeFun.Make(struct val tab = t end) fun row r = <xml> #{[r.Id]}: {[r.Nam]} </xml> fun main () = xml <- tree row None; return <xml><body> {xml} </body></xml>