Tinco Andringa tinco

## concurrent_sieve.hs
-- Compile with `ghc -threaded -with-rtsopts=-N concurrent_sieve.hs`

import Control.Concurrent
import Control.Monad

import System.Environment

-- Map over [2..] (2 until infinity), putting the value in mOut. The putting operation will block until
-- mOut is empty. mOut will become empty when some other thread executes takeMVar (getting its value).
generate :: MVar Int -> IO ()
	-- Compile with `ghc -threaded -with-rtsopts=-N concurrent_sieve.hs`

	import Control.Concurrent
	import Control.Monad

	import System.Environment

	-- Map over [2..] (2 until infinity), putting the value in mOut. The putting operation will block until
	-- mOut is empty. mOut will become empty when some other thread executes takeMVar (getting its value).
	generate :: MVar Int -> IO ()