Minor js optimizations. * flatten() now uses accumulator and join. * reuse regexps instead of allocating new each time

fun zero () = return 0

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