adamc@446: fun main () : transaction page =
adamc@446:     let
adamc@446:         val x = 1
adamc@446:     in
adamc@446:         return <xml>{[x]}</xml>
adamc@446:     end