+
+-- Randomized array with elements chosen independently following a given
+-- randomized element.
+indRandomArray :: (IArray a e, Ix i) =>
+ (i, i) -> Randomized e -> Randomized (a i e)
+indRandomArray bds rElement = do
+ list <- sequence $ replicate (rangeSize bds) rElement
+ return (listArray bds list)