also convert/pngcrush png pictures with 16bit/channel (resulting in 8bit/channel) and repage their layers (as I found out that some of the pics had their layer offset the actual visual area, which makes the picture look blank in gimp)
{-# LANGUAGE CPP #-}module Main whereimport IOimport System.IOimport Control.Concurrentimport Networkimport Control.Exceptionimport Control.Monadimport System.Random#if !defined(mingw32_HOST_OS)import System.Posix#endiftesting = Control.Exception.handle print $ do delay <- randomRIO (100::Int, 300) threadDelay delay sock <- connectTo "127.0.0.1" (PortNumber 46631) hClose sockforks i = do delay <- randomRIO (50::Int, 190) if i `mod` 10 == 0 then putStr (show i) else putStr "." hFlush stdout threadDelay delay forkIO testing forks (i + 1)main = withSocketsDo $ do#if !defined(mingw32_HOST_OS) installHandler sigPIPE Ignore Nothing;#endif forks 1