Finite randoms generator in Haskell