--- a/gameServer/stresstest3.hs	Mon Mar 28 16:30:44 2011 +0200
+++ b/gameServer/stresstest3.hs	Mon Mar 28 20:28:59 2011 +0400
@@ -62,8 +62,8 @@
     putStr "-"
     hFlush stdout
 
-forks = forM_ [1..100] $ const $ do
-    delay <- randomRIO (10000::Int, 30000)
+forks = forever $ do
+    delay <- randomRIO (0::Int, 80000)
     threadDelay delay
     forkIO testing