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>