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>