blob: 09edc5a3170c4af68adb27c426080d0c76210126 (
plain)
1
2
3
4
5
6
7
8
|
fun makeList n = if n = 0 then [] else 1 :: makeList (n - 1)
fun doit {N = n} = return <xml><body>{[List.length (makeList (readError n))]}</body></xml>
fun main () =
return <xml><body>
<form> <textbox{#N}/> <submit action={doit}/> </form>
</body></xml>
|
