--
-- Concurrent Haskell for beginners 
--

import Random(randomRIO)
import Concurrent

forN :: Int-> IO a-> IO ()
forN n a = if n== 0 then return () else a >> forN (n-1) a

echo :: String-> IO ()
echo p = do putStrLn ("Please enter line "++p)
	        line <- getLine
		randomRIO (1,100) >>= \n-> forN n (putStr (p++ line))
		echo p
	
main :: IO ()
main = forkIO (echo "1") >> echo "2"