<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">What is going wrong here?<br><br>Michael<br><br>=======<br><br>import System.Random<br><br>coinToss :: StdGen -&gt; IO ()<br>coinToss gen = putStrLn "What's your guess, heads or tails ('h' or 't')?"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &gt;&gt; getChar<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &gt;&gt;= \c -&gt; let (randInt, _) = randomR(0,1) gen :: (Int, StdGen)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; in if c == ((!!) "ht" randInt) then putStrLn "You win!" else putStrLn "You lose!"<br><br>main = do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gen &lt;- getStdGen<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; coinToss gen<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; gen
 &lt;- newStdGen<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; main<br><br>=======<br><br>[michael@localhost ~]$ runhaskell cointoss.hs<br>What's your guess, heads or tails ('h' or 't')?<br>h<br>You win!<br>What's your guess, heads or tails ('h' or 't')?<br>You lose!<br>What's your guess, heads or tails ('h' or 't')?<br>h<br>You lose!<br>What's your guess, heads or tails ('h' or 't')?<br>You lose!<br>What's your guess, heads or tails ('h' or 't')?<br>^Ccointoss.hs: cointoss.hs: interrupted<br>[michael@localhost ~]$ <br><br></td></tr></table><br>