rn a -> Pattern a
_shuffle n = _rearrangeWith (randrun n) n

{- | `scramble n p` is
_shuffle :: Int -> Pattern a -> Pattern a
_shuffle n = _rearrangeWith (randrun n) n
_shuffle n = _rearrangeWith (randrun n) n