sw17ch · February 13, 2013 21:50 · sw17ch · Feb 13, 2013
diff --git a/soup.hs b/soup.hs
 module Main where

 import Control.Concurrent
 import System.IO

 main :: IO ()
 main = do
  hSetBuffering stdout NoBuffering
  mapM_ (forkIO . putStrLn . repeat) ['a'..'z']
  threadDelay 1000000
	module Main where

	import Control.Concurrent
	import System.IO

	main :: IO ()
	main = do
	hSetBuffering stdout NoBuffering
	mapM_ (forkIO . putStrLn . repeat) ['a'..'z']
	threadDelay 1000000