3 -- Test thread creation.
4 -- (from: Einar Wolfgang Karlsen <ewk@Informatik.Uni-Bremen.DE>)
9 main = spawner forkIO 1000000
11 spawner :: (IO () -> IO ()) -> Int -> IO ()
12 spawner c 0 = print "done"
13 spawner c n = do { c (spawner c (n-1)); return ()}