<div>Hello, I&#39;m having a problem with GHC. </div><div><br></div><div>When I compile the code bellow it does nothing, but If I try to use ghci it works normally. </div><div><br></div><div>it seems a simple problem, but I can&#39;t understand.</div>

<div><br></div><div>Thanks for the help</div><div><br></div><div>Mauricio</div><div><br></div><div><br></div><div>import System.IO</div><div>import Control.Concurrent</div><div>import Data.List </div><div><br></div><div>
main = do   </div>
<div>     input &lt;- newMVar  [1..30000]</div><div>     ia &lt;- newEmptyMVar</div><div>     ib &lt;- newEmptyMVar</div><div>     ic &lt;- newEmptyMVar</div><div>     </div><div>     forkIO $ do x &lt;- readMVar input</div>

<div>                 putMVar ia x</div><div>               </div><div>     forkIO $ do a &lt;- readMVar ia</div><div>                 putMVar ib ( sum a )</div><div>     </div><div>     forkIO $ do a &lt;- readMVar ia</div>

<div>                 putMVar ic ( reverse a )</div><div>     </div><div>     forkIO $ do b &lt;- readMVar ib</div><div>                 c &lt;- readMVar ic</div><div>                 print b </div><div>                 print c </div>