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

fun zero () = return 0

fun main () : transaction page =
    z <- rpc (zero ());
    return <xml>{[z]}</xml>