diff --git a/mtl-misc-yj.cabal b/mtl-misc-yj.cabal
--- a/mtl-misc-yj.cabal
+++ b/mtl-misc-yj.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           mtl-misc-yj
-version:        0.1.0.3
+version:        0.1.0.4
 synopsis:       tribial tools about mtl
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/mtl-misc-yj#readme>
 category:       Control
diff --git a/src/Control/Monad/Cont/MiscYj.hs b/src/Control/Monad/Cont/MiscYj.hs
--- a/src/Control/Monad/Cont/MiscYj.hs
+++ b/src/Control/Monad/Cont/MiscYj.hs
@@ -2,7 +2,11 @@
 
 module Control.Monad.Cont.MiscYj where
 
+import Control.Monad
 import Control.Monad.Cont
 
 mapContM :: (a -> (b -> m c) -> m c) -> [a] -> ([b] -> m c) -> m c
 mapContM f = runContT . mapM (ContT . f)
+
+replicateContM :: Int -> ((a -> m b) -> m b) -> (([a] -> m b) -> m b)
+replicateContM n = runContT . replicateM n . ContT