diff --git a/System/Random/MWC/CondensedTable/Monad.hs b/System/Random/MWC/CondensedTable/Monad.hs
new file mode 100644
--- /dev/null
+++ b/System/Random/MWC/CondensedTable/Monad.hs
@@ -0,0 +1,34 @@
+-- |
+-- Module    : System.Random.MWC.CondesedTable
+-- Copyright : (c) 2012 Aleksey Khudyakov
+-- License   : BSD3
+--
+-- Maintainer  : alexey.skladnoy@gmail.com
+-- Stability   : experimental
+-- Portability : portable
+--
+-- Monadic wrapper for 'System.Random.MWC.CondesedTable'.
+module System.Random.MWC.CondensedTable.Monad (
+    -- * Condensed tables
+    MWC.CondensedTable
+  , MWC.CondensedTableV
+  , MWC.CondensedTableU
+  , genFromTable
+    -- * Constructors for tables
+  , MWC.tableFromProbabilities
+  , MWC.tableFromWeights
+  , MWC.tableFromIntWeights
+    -- ** Disrete distributions
+  , MWC.tablePoisson
+  , MWC.tableBinomial
+  ) where
+
+import Control.Monad.Primitive         (PrimMonad)
+import qualified Data.Vector.Generic as G
+import System.Random.MWC.Monad
+import qualified System.Random.MWC.CondensedTable as MWC
+
+
+genFromTable :: (PrimMonad m, G.Vector v a) => MWC.CondensedTable v a -> Rand m a
+genFromTable tbl = toRand $ \g -> MWC.genFromTable tbl g
+{-# INLINE genFromTable #-}
diff --git a/mwc-random-monad.cabal b/mwc-random-monad.cabal
--- a/mwc-random-monad.cabal
+++ b/mwc-random-monad.cabal
@@ -1,5 +1,5 @@
 Name:                mwc-random-monad
-Version:             0.3
+Version:             0.4
 License:             BSD3
 License-file:        LICENSE
 Author:              Alexey Khudyakov <alexey.skladnoy@gmail.com>
@@ -10,15 +10,18 @@
 Cabal-version:       >=1.6
 Synopsis:            Monadic interface for mwc-random
 Description:         
-  Simple monadit interface for mwc-random.
+  Simple monadic interface for mwc-random.
 
 Library
-  build-depends:     base >= 3 && < 5,
-                     primitive,
-                     vector >= 0.7,
-                     mwc-random >= 0.11
-  Exposed-modules:   System.Random.MWC.Monad
-                     System.Random.MWC.Distributions.Monad
+  build-depends:
+    base >= 3 && < 5,
+    primitive,
+    vector >= 0.7,
+    mwc-random >= 0.11
+  Exposed-modules:
+    System.Random.MWC.Monad
+    System.Random.MWC.Distributions.Monad
+    System.Random.MWC.CondensedTable.Monad
   Ghc-options:       -O2 -Wall
   Ghc-prof-options:  -auto-all