ern a -> Pattern a
_ply n pat = squeezeJoin $ (_fast n . pure) <$> pat

-- Like ply, but appli
_ply :: Rational -> Pattern a -> Pattern a
_ply n pat = squeezeJoin $ (_fast n . pure) <$> pat
_ply n pat = squeezeJoin $ (_fast n . pure) <$> pat