adam@1397: fun cryptIt r = return <xml><body>
adam@1397:   {[crypt r.Pass "AB"]}
adam@1397: </body></xml>
adam@1397: 
adam@1397: fun main () = return <xml><body>
adam@1397:   <form><textbox{#Pass}/> <submit action={cryptIt}/></form>
adam@1397: </body></xml>