diff --git a/src/Text/Show/ToolsYj.hs b/src/Text/Show/ToolsYj.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/Show/ToolsYj.hs
@@ -0,0 +1,14 @@
+{-# LANGUAGE MonoLocalBinds #-}
+{-# LANGUAGE FlexibleInstances, UndecidableInstances #-}
+{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}
+
+module Text.Show.ToolsYj (ShowIO(..), printIO) where
+
+class ShowIO a where
+	showIO :: a -> IO String
+
+instance Show a => ShowIO a where
+	showIO = pure . show
+
+printIO :: ShowIO a => a -> IO ()
+printIO = (putStrLn =<<) . showIO
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.21
+version:        0.1.0.22
 synopsis:       Tribial tools
 description:    Please see the README on GitHub at <https://github.com/YoshikuniJujo/tools-yj#readme>
 category:       Tools
@@ -39,6 +39,7 @@
       Data.Sequences.ToolsYj
       Data.Text.ToolsYj
       Data.Tuple.ToolsYj
+      Text.Show.ToolsYj
   other-modules:
       Paths_tools_yj
   autogen-modules: