1 (* Written by Stephen
Weeks (sweeks@sweeks
.com
). *)
8 val f
= OS
.FileSys
.tmpName ()
13 (List.tabulate (1000000, fn i
=>
14 if i
mod 10 = 0 then #
"\n" else #
"a")))
19 fun loop (i
: int): int =
22 | SOME c
=> loop (if c
= #
"\n" then i
+ 1 else i
)
24 val _
= if n
<> 100000 then raise Fail
"bug" else ()
30 | n
=> (wc f
; loop (n
- 1))
32 val _
= OS
.FileSys
.remove f