diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -31,3 +31,8 @@
 
 * Second version revised A. Some documentation improvement.
 
+## 0.2.1.9 -- 2023-03-11
+
+* Second version revised B. Changed the defaults for the new functions. Added the possibility to
+  parse the '-' sign into the negative second parameter  in HashCorrections.
+
diff --git a/rhythmic-sequences.cabal b/rhythmic-sequences.cabal
--- a/rhythmic-sequences.cabal
+++ b/rhythmic-sequences.cabal
@@ -2,7 +2,7 @@
 name:               rhythmic-sequences
 
 -- The package version.
-version:            0.2.0.1
+version:            0.2.1.0
 
 -- A short (one-line) description of the package.
 synopsis:
diff --git a/src/Rhythmicity/MarkerSeqs.hs b/src/Rhythmicity/MarkerSeqs.hs
--- a/src/Rhythmicity/MarkerSeqs.hs
+++ b/src/Rhythmicity/MarkerSeqs.hs
@@ -146,7 +146,7 @@
 hashList (H xs _) = xs `mappend` cycle [0]
 {-# INLINE hashList #-}
 
--- | If you would like to specify just your own values then specify the 'String' \"3...\" where
+-- | If you would like to specify just your own values then specify the 'String' \"0...\" where
 -- instead of dots specify some digits that are the beginning of the ['Int8'] list in
 -- 'HashCorrections'.
 -- Caution: 
@@ -157,13 +157,14 @@
 --
 -- in general case. The default value is @H [0,0..] 0@.
 readHashCorrections :: String -> HashCorrections
-readHashCorrections xs = if length ys > 1 then let (ts,us) = splitAt 1 ys in H (map (\x -> read [x]::Int8) us) (read ts::Int8) else H [0,0..] 0
+readHashCorrections xs = if length ys > 1 then let (ts,us) = splitAt 1 ys in H (map (\x -> read [x]::Int8) us) (if sgn then (-(read ts::Int8)) else (read ts::Int8)) else H [0,0..] 0
    where ys = filter (\x -> isDigit x) xs
+         sgn = any (== '-') xs
 
--- | This is used to provide the second and the third argument to 'countHashesG' function. The
--- default value is @(2,[2,1])@ that should be related to disyllables metrical feet.
+-- | This is used to provide the second and the third arguments to 'countHashesG' function. The
+-- default value is @(4,[4,3])@ that should be related to disyllables metrical feet.
 grouppingR :: String -> (Int8, [Int8])
-grouppingR xs = if length ys > 1 then let (ts,us) = splitAt 1 ys in (read ts::Int8, map (\x -> read [x]::Int8) us) else (2,[2,1])
+grouppingR xs = if length ys > 1 then let (ts,us) = splitAt 1 ys in (read ts::Int8, map (\x -> read [x]::Int8) us) else (4,[4,3])
    where ys = take 8 . filter (\x -> isDigit x) $ xs
 
 -- | General implementation of  the hash-based algorithm to evaluate the level of rhythmicity