diff --git a/Sound/Tidal/Dirt.hs b/Sound/Tidal/Dirt.hs
--- a/Sound/Tidal/Dirt.hs
+++ b/Sound/Tidal/Dirt.hs
@@ -13,6 +13,7 @@
 import Data.Bits
 import Data.Maybe
 import Data.Fixed
+import Data.Ratio
 import System.Process
 
 import Sound.Tidal.Stream
@@ -193,6 +194,11 @@
 
 xfade :: Time -> [OscPattern] -> OscPattern
 xfade = xfadeIn 2
+
+stut :: Integer -> Double -> Rational -> OscPattern -> OscPattern
+stut steps feedback time p = stack (p:(map (\x -> (((x%steps)*time) ~> (p |+| gain (pure $ scale (fromIntegral x))))) [1..(steps-1)])) 
+  where scale x 
+          = ((+feedback) . (*(1-feedback)) . (/(fromIntegral steps)) . ((fromIntegral steps)-)) x
 
 anticipateIn :: Time -> Time -> [OscPattern] -> OscPattern
 anticipateIn _ _ [] = silence
diff --git a/Sound/Tidal/Strategies.hs b/Sound/Tidal/Strategies.hs
--- a/Sound/Tidal/Strategies.hs
+++ b/Sound/Tidal/Strategies.hs
@@ -96,11 +96,6 @@
 
 inside n f p = density n $ f (slow n p)
 
-stut :: Integer -> Double -> Rational -> OscPattern -> OscPattern
-stut steps feedback time p = stack (p:(map (\x -> (((x%steps)*time) ~> (p |+| gain (pure $ scale (fromIntegral x))))) [1..(steps-1)])) 
-  where scale x 
-          = ((+feedback) . (*(1-feedback)) . (/(fromIntegral steps)) . ((fromIntegral steps)-)) x
-
 scale :: (Functor f, Num b) => b -> b -> f b -> f b
 scale from to p = ((+ from) . (* (to-from))) <$> p
 
diff --git a/tidal.cabal b/tidal.cabal
--- a/tidal.cabal
+++ b/tidal.cabal
@@ -1,5 +1,5 @@
 name:                tidal
-version:         0.4.35
+version:         0.4.36
 synopsis:            Pattern language for improvised music
 -- description:         
 homepage:            http://tidal.lurk.org/