adamc@1191: table t : { A : int, B : int, C : int }
adamc@1191: 
adamc@1191: fun main () =
adamc@1191:     v <- queryX1 (SELECT t.A, t.C
adamc@1191:                   FROM t
adamc@1191:                   WHERE t.B = (SELECT MAX(U.B) AS M
adamc@1191:                                FROM t AS U
adamc@1191:                                WHERE U.A = t.A))
adamc@1191:          (fn r => <xml>{[r.A]},{[r.C]};</xml>);
adamc@1191:     return <xml>{v}</xml>