adamc@986: table user : {A : int}
adamc@986: 
adamc@986: fun main () =
adamc@986:     r <- oneRow (SELECT COUNT( * ) AS N FROM user);
adamc@986:     return <xml>{[r.N]}</xml>