adamc@469: table t : { Id : int, Parent : option int, Nam : string }
adamc@469:
adamc@469: open TreeFun.Make(struct
adamc@469: val tab = t
adamc@469: end)
adamc@469:
adamc@469: fun row r =
adamc@469: #{[r.Id]}: {[r.Nam]}
adamc@469:
adamc@469:
adamc@469: fun main () =
adamc@469: xml <- tree row None;
adamc@469: return
adamc@469: {xml}
adamc@469: