Commit | Line | Data |
---|---|---|
7f918cf1 CE |
1 | structure Main = |
2 | struct | |
3 | fun once () = | |
4 | let | |
5 | val count = 1000000000 | |
6 | open TextIO | |
7 | val out = openOut "/dev/null" | |
8 | fun loop n = | |
9 | if n = 0 | |
10 | then () | |
11 | else (output1 (out, #"a"); loop (n - 1)) | |
12 | val _ = loop count | |
13 | val _ = closeOut out | |
14 | in | |
15 | () | |
16 | end | |
17 | ||
18 | fun doit n = | |
19 | if n = 0 | |
20 | then () | |
21 | else (once (); doit (n - 1)) | |
22 | end |