diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -35,3 +35,8 @@
 * Second version revised C. Added the possibility to see example lines for minimum and maximum values
   for the properties in the test mode using the "-t <one of 4, 5, or 6>" command line arguments.
 
+## 0.2.4.0 -- 2023-04-17
+
+* Second version revised D. Added the possibility to see example lines for minimum and maximum values
+for the properties in  the test mode using the "-t <one of 7, 8, or 9>" command line arguments.
+
diff --git a/Phladiprelio/General/Simple.hs b/Phladiprelio/General/Simple.hs
--- a/Phladiprelio/General/Simple.hs
+++ b/Phladiprelio/General/Simple.hs
@@ -43,14 +43,17 @@
    let syllN = sum . map (countSyll wrs arr us vs) $ rss
        universalSet = map unwords . permutations $ rss
        f grps mxms = sum . countHashes2G hashStep hc grps mxms . mconcat . h . createSyllablesPL wrs ks arr gs us vs
-   if numTest `elem` 0:[2..6] then do
+   if numTest `elem` 0:[2..9] then do
       hSetNewlineMode stdout universalNewlineMode
       putStrLn "Feet   Val  Stat   Proxim" 
-      mapM (\(q,qs) -> let m = stat1 syllN (q,qs) in let max1 = maximumBy (comparing (f q qs)) universalSet in let mx = f q qs max1 in putStrLn (show (fromEnum q) `mappend` "   |   " `mappend`  show mx `mappend` "     " `mappend` show m `mappend` "  -> " `mappend` show (100 * fromIntegral mx / fromIntegral m) `mappend` "%" `mappend` (if numTest >= 4 then let min1 = minimumBy (comparing (f q qs)) universalSet in ("\n" `mappend` min1 `mappend` "\n" `mappend` max1 `mappend` "\n")  else ""))) . zip [2..7] $ ([1]:sel numTest)
+      mapM (\(q,qs) -> let m = stat1 syllN (q,qs) in let max1 = maximumBy (comparing (f q qs)) universalSet in let mx = f q qs max1 in putStrLn (show (fromEnum q) `mappend` "   |   " `mappend`  show mx `mappend` "     " `mappend` show m `mappend` "  -> " `mappend` show (100 * fromIntegral mx / fromIntegral m) `mappend` "%" `mappend` (if numTest >= 4 then let min1 = minimumBy (comparing (f q qs)) universalSet in ("\n" `mappend` min1 `mappend` "\n" `mappend` max1 `mappend` "\n")  else ""))) . zip [2..7] $ (sel numTest)
    else mapM (\(x,y) -> putStrLn (show x `mappend` (' ':y)))  . (let h1 (u,w) = if descending then ((-1)*u,w) else (u,w) in sortOn h1) . map (\xss -> (f grps mxms xss, xss)) $ universalSet
       where sel x 
-              | x == 0 || x == 4 = [[2,1],[3,2],[4,3,2],[5,4,3],[6,5,4,3,2]]
-              | x == 2 || x == 5 = [[2],[3],[4,3],[5,4],[6,5,4]]
+              | x == 0 || x == 4 = [[1],[2,1],[3,2],[4,3,2],[5,4,3],[6,5,4,3,2]]
+              | x == 2 || x == 5 = [[1],[2],[3],[4,3],[5,4],[6,5,4]]
+              | x == 7 = [[0],[1,0],[1,0],[1,0],[1,0],[1,0]]
+              | x == 8 = [[0],[1,0],[1,0],[2,1,0],[2,1,0],[2,1,0]]
+              | x == 9 = [[0],[1,0],[1,0],[2,1,0],[3,2,1,0],[3,2,1,0]]
               | otherwise = [[1],[2,1],[3,2,1],[3,2],[4,3,2]]
 
 countSyll 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -39,6 +39,10 @@
 the foundation founder's (this is [Emma Kok](https://www.emmakok.nl)) Birthday.
 And on the 17/03/2023 there is the author's Birthday. And at the 19/03/2023 is 
 St. Joseph the Betrothed Day.
+
+On the 19/04/2023 there is Emma's namesday, the memory of St. Emma of Lesum or Emma of Stiepel 
+(also known as Hemma and Imma) Day.
+
 If you would like to share some financial support, please, contact the foundation
 using the URL:
 
diff --git a/phladiprelio-general-simple.cabal b/phladiprelio-general-simple.cabal
--- a/phladiprelio-general-simple.cabal
+++ b/phladiprelio-general-simple.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.4
 name:               phladiprelio-general-simple
-version:            0.2.3.0
+version:            0.2.4.0
 
 -- A short (one-line) description of the package.
 synopsis:           A generalized functionality of PhLADiPreLiO for different languages that uses hash algorithms.