diff --git a/benchmarks/Quickie.hs b/benchmarks/Quickie.hs
new file mode 100644
index 0000000..2418b8f
--- /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)