adamc@559: table t : { A : int, B : float }
adamc@559:
adamc@559: val q = (SELECT t.A + t.A AS X, t.B * t.B AS Y FROM t)
adamc@559:
adamc@559: fun main () : transaction page =
adamc@559: xml <- queryX q (fn r => {[r.X]}, {[r.Y]}
);
adamc@559: return {xml}
adamc@559: