diff --git a/src/Data/Tuple/ToolsYj.hs b/src/Data/Tuple/ToolsYj.hs
--- a/src/Data/Tuple/ToolsYj.hs
+++ b/src/Data/Tuple/ToolsYj.hs
@@ -1,11 +1,14 @@
 {-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
 
 module Data.Tuple.ToolsYj (
-	uncurryDup,
+	uncurry3, uncurryDup,
 	mapTup3, appTup3, mapTup3M, appTup3M, mapTup3M_, appTup3M_
 	) where
 
 import Control.Monad
+
+uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d
+uncurry3 f (x, y, z) = f x y z
 
 uncurryDup :: (a -> b -> c -> d) -> ((a, b), c) -> d
 uncurryDup = uncurry . uncurry
diff --git a/tools-yj.cabal b/tools-yj.cabal
--- a/tools-yj.cabal
+++ b/tools-yj.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           tools-yj
-version:        0.1.0.20
+version:        0.1.0.21
 synopsis:       Tribial tools
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/tools-yj#readme>
 category:       Tools