diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -3,3 +3,7 @@
 ## 0.1.0.0 -- 2020-10-08
 
 * First version. Released on an unsuspecting world.
+
+## 0.1.0.1 -- 2020-10-08
+
+* First version revised A. Improved computational simplicity.
diff --git a/Languages/Rhythmicity.hs b/Languages/Rhythmicity.hs
--- a/Languages/Rhythmicity.hs
+++ b/Languages/Rhythmicity.hs
@@ -51,11 +51,11 @@
               | otherwise = (t,u,w + 1.0)
 
 evalRhythmicity23 :: (RealFrac a, Floating a) => [a] -> a
-evalRhythmicity23 xs = maxPosition2 xs ** 2.0 + maxPosition3 xs ** 2.0
+evalRhythmicity23 xs = maxPosition2 xs * maxPosition2 xs + maxPosition3 xs * maxPosition3 xs
 
 evalRhythmicity23K
   :: (RealFrac a, Floating a) => a
   -> a
   -> [a]
   -> a
-evalRhythmicity23K k2 k3 xs = k2 * maxPosition2 xs ** 2.0 + k3 * maxPosition3 xs ** 2.0
+evalRhythmicity23K k2 k3 xs = k2 * maxPosition2 xs * maxPosition2 xs + k3 * maxPosition3 xs * maxPosition3 xs
diff --git a/phonetic-languages-rhythmicity.cabal b/phonetic-languages-rhythmicity.cabal
--- a/phonetic-languages-rhythmicity.cabal
+++ b/phonetic-languages-rhythmicity.cabal
@@ -2,7 +2,7 @@
 -- For further documentation, see http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-rhythmicity
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Allows to estimate the rhythmicity metrices for the text (usually, the Ukrainian poetic one)
 description:         Allows to estimate (somewhat to say, evaluate) the rhythmicity metrices for the text (usually, the Ukrainian poetic one, but it can be extrapolated to other ones). Inspired by the ancient Greek and Latin poetry.