What is going wrong here? Michael ======= import System.Random coinToss :: StdGen -> IO () coinToss gen = putStrLn "What's your guess, heads or tails ('h' or 't')?" >> getChar >>= \c -> let (randInt, _) = randomR(0,1) gen :: (Int, StdGen) in if c == ((!!) "ht" randInt) then putStrLn "You win!" else putStrLn "You lose!" main = do gen <- getStdGen coinToss gen gen <- newStdGen main ======= [michael@localhost ~]$ runhaskell cointoss.hs What's your guess, heads or tails ('h' or 't')? h You win! What's your guess, heads or tails ('h' or 't')? You lose! What's your guess, heads or tails ('h' or 't')? h You lose! What's your guess, heads or tails ('h' or 't')? You lose! What's your guess, heads or tails ('h' or 't')? ^Ccointoss.hs: cointoss.hs: interrupted [michael@localhost ~]$