adamc@614: table t : { A : int } adamc@614: adamc@614: fun main () : transaction page = adamc@614: let adamc@614: fun count a = r <- oneRow (SELECT COUNT( * ) AS N FROM t WHERE t.A = {[a]}); adamc@614: return r.N adamc@614: in adamc@614: s <- source 0; adamc@614: return adamc@614: