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