blob: baf8ab9497493f1257bc4edbb22537da013839b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
fun listHell n =
if n <= 0 then
[]
else
n :: List.append (listHell (n-1)) (listHell (n-1))
fun doit r =
Transactional.foo;
return <xml>{[listHell (readError r.N)]}</xml>
fun main () = return <xml><body>
<form> <textbox{#N}/> <submit action={doit}/> </form>
</body></xml>
|
