99HP: problem 24 with State monad.

Well that is basically the same as using randomRIO...