ern a -> Pattern a
_pressBy r pat = squeezeJoin $ (compressTo (r,1) . pure) <$> pat

-- | Uses the first (b
_pressBy :: Time -> Pattern a -> Pattern a
_pressBy r pat = squeezeJoin $ (compressTo (r,1) . pure) <$> pat
_pressBy r pat = squeezeJoin $ (compressTo (r,1) . pure) <$> pat