diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,3 +11,8 @@
 ## 0.3.0.0 -- 2021-10-04
 
 * Third version. Some code improvements. Some minor documentation improvements. Updated the dependencies boundaries.
+
+## 0.4.0.0 -- 2021-11-04
+
+* Fourth version. Alongside with the Char representation added also the Int8 to the 
+Phonetic.Languages.Simplified.Lists.UniquenessPeriodsG.Base module.
diff --git a/Phonetic/Languages/Simplified/Lists/UniquenessPeriodsG/Base.hs b/Phonetic/Languages/Simplified/Lists/UniquenessPeriodsG/Base.hs
--- a/Phonetic/Languages/Simplified/Lists/UniquenessPeriodsG/Base.hs
+++ b/Phonetic/Languages/Simplified/Lists/UniquenessPeriodsG/Base.hs
@@ -16,7 +16,9 @@
 module Phonetic.Languages.Simplified.Lists.UniquenessPeriodsG.Base (
   -- * List functions
   uniquenessPeriodsG
+  , uniquenessPeriodsGI8
   , diverse2GL
+  , diverse2GLInt8
 )where
 
 import GHC.Int
@@ -44,6 +46,28 @@
              | otherwise = let !idX0 = snd . head $ x in Just . (\vws (v2,v3) -> ((helpUPV3 vws [] .
                     map fst $ v2,snd . head $ v2),v3)) vs . partition (\(_,xs) -> xs == idX0) $ x
 {-# INLINE uniquenessPeriodsG #-}
+
+-- | A lists variant of the diverse2 metrics from the @phonetic-languages-properties@ package.
+diverse2GLInt8 :: Foldable t => [Int8] -> t Int8 -> Int16
+diverse2GLInt8 whspss = sum . uniquenessPeriodsGI8 whspss
+{-# INLINE diverse2GLInt8 #-}
+
+-- | A generalization of the uniquenessPeriods function of the @uniqueness-periods@ package.
+uniquenessPeriodsGI8 :: Foldable t => [Int8] -> t Int8 -> [Int16]
+uniquenessPeriodsGI8 whspss ws
+ | null ws = []
+ | otherwise = mapMaybe (helpG sum whspss) . unfoldr f $ ks
+     where !ks = indexedL (-1) ws
+           !vs = mapMaybe g ks
+           g x
+            | (`elem` whspss) . snd $ x = Just (fst x)
+            | otherwise = Nothing
+           {-# INLINE g #-}
+           f !x
+             | null x = Nothing
+             | otherwise = let !idX0 = snd . head $ x in Just . (\vws (v2,v3) -> ((helpUPV3 vws [] .
+                    map fst $ v2,snd . head $ v2),v3)) vs . partition (\(_,xs) -> xs == idX0) $ x
+{-# INLINE uniquenessPeriodsGI8 #-}
 
 -- | The first and the third list arguments of numbers (if not empty) must be sorted in the ascending order.
 helpUPV3 :: [Int16] -> [Int16] -> [Int16] -> [Int16]
diff --git a/phonetic-languages-simplified-base.cabal b/phonetic-languages-simplified-base.cabal
--- a/phonetic-languages-simplified-base.cabal
+++ b/phonetic-languages-simplified-base.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-simplified-base
-version:             0.3.0.0
+version:             0.4.0.0
 synopsis:            A basics of the phonetic-languages functionality.
 description:         The  common for different realizations functionality. Just the necessary one.
 homepage:            https://hackage.haskell.org/package/phonetic-languages-simlified-base