diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -3,3 +3,7 @@
 ## 0.1.0.0 -- 2021-05-04
 
 * First version. Released on an unsuspecting world. 
+
+## 0.1.0.1 -- 2021-05-06
+
+* First version revised A. Some code improvements.
diff --git a/Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs b/Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs
--- a/Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs
+++ b/Phonetic/Languages/Array/General/PropertiesFuncRepG2.hs
@@ -49,7 +49,7 @@
 import Data.Phonetic.Languages.Base
 import Data.Phonetic.Languages.Syllables hiding (D)
 import Data.Maybe (fromMaybe,mapMaybe)
---import Text.Read (readMaybe)
+import Data.Monoid (mappend)
 
 #ifdef __GLASGOW_HASKELL__
 #if __GLASGOW_HASKELL__==708
@@ -102,8 +102,8 @@
   -> ([[[PRS]]] -> [[Double]])
   -> Coeffs2
   -> FuncRep2 String Double c
-procB2FG wrs ks arr gs us vs h1 h g coeffs = D (\xs -> let ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs in
-  ((int2Double . fromEnum . diverse2GL (' ':us ++ vs) $ ys)*(h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .
+procB2FG wrs ks arr gs us vs h1 h g coeffs = let zs = ' ':us `mappend` vs in D (\xs -> let ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs in
+  ((int2Double . fromEnum . diverse2GL zs $ ys)*(h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .
     str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys))) h
 {-# INLINE procB2FG #-}
 
@@ -148,9 +148,9 @@
   -> ([[[PRS]]] -> [[Double]])
   -> Coeffs2
   -> FuncRep2 String Double c
-procB2InvFG wrs ks arr gs us vs h1 h g coeffs = D (\xs ->
+procB2InvFG wrs ks arr gs us vs h1 h g coeffs = let zs = ' ':us `mappend` vs in D (\xs ->
   let !ys = map char . stringToXG wrs . map (\x -> if x == '-' then ' ' else x) $ xs
-      !z = diverse2GL (' ':us ++ vs) ys in if z == 0 then  (h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .
+      !z = diverse2GL zs ys in if z == 0 then  (h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds .
          str2PRSs arr) . words1 . mapMaybe (f us vs) $ ys) ** 2.0
         else  ((h1 . mconcat . g . map (divVwls . reSyllableCntnts ks gs . groupSnds . str2PRSs arr) . words1 .
           mapMaybe (f us vs) $ ys) / (int2Double . fromEnum $ z))) h
diff --git a/phonetic-languages-simplified-generalized-properties-array.cabal b/phonetic-languages-simplified-generalized-properties-array.cabal
--- a/phonetic-languages-simplified-generalized-properties-array.cabal
+++ b/phonetic-languages-simplified-generalized-properties-array.cabal
@@ -3,7 +3,7 @@
 -- http://haskell.org/cabal/users-guide/
 
 name:                phonetic-languages-simplified-generalized-properties-array
-version:             0.1.0.0
+version:             0.1.0.1
 synopsis:            Generalization of the functionality of the phonetic-languages-simplified-properties-array.
 description:         Is intended to be used with the general phonetic languages approach. 
 homepage:            https://hackage.haskell.org/package/phonetic-languages-simplified-generalized-properties-array