adamc@1200: table fruit : { Id : int, Nam : string, Weight : float, Secret : string }
adamc@1199:
adamc@1203: policy query_policy (SELECT fruit.Id, fruit.Nam, fruit.Weight FROM fruit)
adamc@1200:
adamc@1200: fun main () =
adamc@1203: xml <- queryX (SELECT fruit.Id, fruit.Nam
adamc@1201: FROM fruit)
adamc@1203: (fn x => {[x.Fruit.Id]}: {[x.Fruit.Nam]});
adamc@1200:
adamc@1200: return
adamc@1200: {xml}
adamc@1200: