blob: b328f8384a5832ae9a645feec33834e1732de39e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
fun lame _ = return <xml/>
fun main () =
s <- source "";
return <xml><body>
<form>
<textarea{#Text} placeholder="Type something here."/>
<submit action={lame}/>
</form>
<ctextarea source={s} placeholder="Absolutely don't type something here."/>
</body></xml>
|
