 rWalk computes a list of values by
--       randomly selecting one value from a distribution in each step.
-- 
rWalk :: Int -> RChange a -> RWalk a
rWalk 0 _ = return . singleton
r
rWalk :: Int -> RChange a -> RWalk a
rWalk 0 _ = return . singleton
rWalk 0 _ = return . singleton