-- FIXME: using psuedo-random numbers for test
-- thx http://stackoverflow.com/a/8777494

randomStream :: DU.Unbox a => (PureMT -> (a, PureMT)) -> PureMT -> DU.Vector a
randomStream rndstep = DU.unfoldr (Just . rndstep)
randomStream :: DU.Unbox a => (PureMT -> (a, PureMT)) -> PureMT -> DU.Vector a
randomStream rndstep = DU.unfoldr (Just . rndstep)
randomStream rndstep = DU.unfoldr (Just . rndstep)