Change MonoReduce to do fixed-pointing, since it sometimes enables more optimizations for itself (e.g., yanking lambdas out of [case]s)

table user : {A : int}

fun main () =
    r <- oneRow (SELECT COUNT( * ) AS N FROM user);
    return <xml>{[r.N]}</xml>