benchmark/tests/output1.sml

   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