blob: d591f7368c663fdf74fbf5e91230182380894b13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
fun handler r = return <xml><body>
{[r.A]}, {[r.B]}
</body></xml>
fun main () = return <xml><body>
<form>
<textbox{#A}/>
<textbox{#B}/>
<submit action={handler}/>
</form>
</body></xml>
|