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 => <xml>{[r.X]}, {[r.Y]}<br/></xml>);
adamc@559:     return <xml><body>{xml}</body></xml>
adamc@559: