adamc@754: table t : { A : int, B : string }
adamc@754:
adamc@754: view v = SELECT t.A AS X FROM t
adamc@754:
adamc@754: fun main () =
adamc@754: rows <- queryX (SELECT * FROM v)
adamc@754: (fn r => {[r.V.X]});
adamc@754: return
adamc@754: {rows}
adamc@754: