On Fri, Dec 09, 2011 at 05:05:15PM -0500, David McBride wrote: > > randomMonster :: RandomGen g => Rand g Monster > randomMonster = do > x <- getRandomR (0,2::Int) > return $ case x of > 0 -> Orc > 1 -> Dragon > 2 -> Wolf This looks like a bug to me. Everyone knows orcs are much more likely than dragons. ;) -Brent