diff --git a/bench/Quickie.hs b/bench/Quickie.hs
deleted file mode 100644
index 2418b8f..0000000
--- a/bench/Quickie.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-{-# 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)