diff --git a/Sound/Tidal/Pattern.hs b/Sound/Tidal/Pattern.hs
--- a/Sound/Tidal/Pattern.hs
+++ b/Sound/Tidal/Pattern.hs
@@ -55,7 +55,7 @@
 -- | @mappend@ is a synonym for @overlay@.
 instance Monoid (Pattern a) where
     mempty = silence
-    mappend x y = Pattern $ \a -> (arc x a) ++ (arc y a)
+    mappend = append
 
 
 instance Monad Pattern where
@@ -342,3 +342,6 @@
 
 rand :: Pattern Double
 rand = Pattern $ \a -> [(a, a, fst $ randomDouble $ pureMT $ floor $ (*1000000) $ (midPoint a))]
+
+irand :: Double -> Pattern Int
+irand i = (floor . (*i)) <$> rand
diff --git a/tidal.cabal b/tidal.cabal
--- a/tidal.cabal
+++ b/tidal.cabal
@@ -1,5 +1,5 @@
 name:                tidal
-version:             0.3.6
+version:             0.3.7
 synopsis:            Pattern language for improvised music
 -- description:         
 homepage:            http://yaxu.org/tidal/