diff --git a/benchmarks/Benchmark.hs b/benchmarks/Benchmark.hs
new file mode 100644
--- /dev/null
+++ b/benchmarks/Benchmark.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE Rank2Types #-}
+import Control.Monad.ST
+import Criterion.Main
+import System.Random.MWC
+
+main = do
+  gen <- create
+  defaultMain [
+        bench "mwc" (uniform gen :: IO Double)
+        ]
diff --git a/benchmarks/Quickie.hs b/benchmarks/Quickie.hs
new file mode 100644
--- /dev/null
+++ b/benchmarks/Quickie.hs
@@ -0,0 +1,13 @@
+{-# LANGUAGE BangPatterns #-}
+import System.Random.MWC (create, uniform)
+import Control.Monad.ST (ST, runST)
+
+u :: ST s Double
+u = do
+  let last = 1000000 :: Int
+  gen <- create
+  let loop !n !i | n == last = return i
+                 | otherwise = uniform gen >>= loop (n+1)
+  loop 0 0
+
+main = print (runST u)
diff --git a/mwc-random.cabal b/mwc-random.cabal
--- a/mwc-random.cabal
+++ b/mwc-random.cabal
@@ -1,5 +1,5 @@
 name:           mwc-random
-version:        0.5.1.2
+version:        0.5.1.3
 synopsis:       Fast, high quality pseudo random number generation
 description:
   This package contains code for generating high quality random
@@ -23,7 +23,10 @@
 category:       Math, Statistics
 build-type:     Simple
 cabal-version:  >= 1.2
-extra-source-files: README
+extra-source-files:
+  README
+  benchmarks/Benchmark.hs
+  benchmarks/Quickie.hs
 
 library
   exposed-modules: