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