adamc@600: fun main () : transaction page =
adamc@600:     s <- source "Hi";
adamc@600:     return <xml><body>
adamc@600:       <form>
adamc@600:         <textbox{#A} source={s}/>
adamc@600:         Change it up!
adamc@600:       </form>
adamc@600:     </body></xml>