diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -17,3 +17,8 @@
 ## 0.3.0.1 -- 2022-01-15
 
 * Third version revised A. Some code improvements.
+
+## 0.3.1.0 -- 2022-01-16
+
+* Third version revised B. Added a new module Phonetic.Languages.Permutations.Represent with a data type to mark type of
+permutations from the other modules where permutations from the other modules are possibly used together.
diff --git a/Phonetic/Languages/Permutations/Represent.hs b/Phonetic/Languages/Permutations/Represent.hs
new file mode 100644
--- /dev/null
+++ b/Phonetic/Languages/Permutations/Represent.hs
@@ -0,0 +1,19 @@
+-- |
+-- Module      :  Phonetic.Languages.Permutations.Represent
+-- Copyright   :  (c) OleksandrZhabenko 2022
+-- License     :  MIT
+-- Stability   :  Experimental
+-- Maintainer  :  olexandr543@yahoo.com
+--
+-- Permutations data type to mark the needed permutations type from the other modules.
+
+module Phonetic.Languages.Permutations.Represent (
+  PermutationsType(..)
+) where
+
+import Data.Monoid
+
+data PermutationsType = P Int deriving (Eq, Ord)
+
+instance Show PermutationsType where
+  show (P x) = "+p " `mappend` show x
diff --git a/phonetic-languages-permutations-array.cabal b/phonetic-languages-permutations-array.cabal
--- a/phonetic-languages-permutations-array.cabal
+++ b/phonetic-languages-permutations-array.cabal
@@ -2,7 +2,7 @@
 -- For further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-permutations-array
-version:             0.3.0.1
+version:             0.3.1.0
 synopsis:            Permutations and universal set related functions for the phonetic-languages series
 description:         Permutations-related to produce universal set of the task. Uses arrays instead of vectors.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-permutations-array
@@ -17,7 +17,7 @@
 cabal-version:       >=1.10
 
 library
-  exposed-modules:     Phonetic.Languages.Permutations.Arr, Phonetic.Languages.Permutations.ArrMini, Phonetic.Languages.Permutations.ArrMini1
+  exposed-modules:     Phonetic.Languages.Permutations.Arr, Phonetic.Languages.Permutations.ArrMini, Phonetic.Languages.Permutations.ArrMini1, Phonetic.Languages.Permutations.Represent
   -- other-modules:
   other-extensions:    MultiWayIf
   build-depends:       base >=4.8 && <5, subG >=0.4.2 && <1