module Main where

import Concurrent
import Random(randomRIO)
                                                        
forN :: Int-> IO a-> IO ()
forN n = sequence_ . take n. repeat


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