module Main where
import System.FilePath
import GHC.Conc

main = mapM_ go (map show ([1..100] ++ [1..1000] :: [Int]))
    where go s = forkIO $ do
                   x <- readFile $ "foo" </> s
                   putStrLn x
                   putStrLn "bleh"