ern a -> Pattern a
_scramble n = _rearrangeWith (_segment (fromIntegral n) $ _irand n) n

randrun :: Int -> Patt
_scramble :: Int -> Pattern a -> Pattern a
_scramble n = _rearrangeWith (_segment (fromIntegral n) $ _irand n) n
_scramble n = _rearrangeWith (_segment (fromIntegral n) $ _irand n) n