diff --git a/src/Sound/Tidal/Core.hs b/src/Sound/Tidal/Core.hs
index 6ac6b242..9705bb7d 100644
--- a/src/Sound/Tidal/Core.hs
+++ b/src/Sound/Tidal/Core.hs
@@ -423,6 +423,11 @@ pattern to multiple patterns at once:
 stack :: [Pattern a] -> Pattern a
 stack = foldr overlay silence
 
+-- ** stepwise things
+
+stepcat :: [Pattern a] -> Pattern a
+stepcat pats = timecat $ map (\pat -> (fromMaybe 1 $ tactus pat, pat)) pats
+
 -- ** Manipulating time
 
 -- | Shifts a pattern back in time by the given amount, expressed in cycles