diff --git a/ChangeLog.md b/ChangeLog.md
index 2fec8ef..a2a5ac7 100644
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -118,8 +118,12 @@ conditions.
## 0.3.3.0 -- 2019-09-02
-* Twelfth version. You can now add volatile pauses by using a " !Double " pattern
+* Twelfth version. You can now add voluntary pauses by using a " !Double " pattern
where Double means a normally written Double numeral with (or without) a dot.
-Extended documentation and used a module declaration.
+Made documentation more complete and used a module declaration.
+## 0.3.4.0 -- 2019-09-03
+
+* Twelfth version revised A. Made some optimizations for predicate functions,
+filtering and voluntary pause creation.
diff --git a/UkrainianSpeech.hs b/UkrainianSpeech.hs
index 71b23a3..bea156c 100644
--- a/UkrainianSpeech.hs
+++ b/UkrainianSpeech.hs
@@ -25,11 +25,11 @@ module Main (
createSoundsForSyllable, endS, combineSoundsLs3, words2,
-- * Functions used for preprocessing
concatPauseRecords, assimilationFirst, isSpecialNonSpace, separatePunct, softAssociate, ukrainianLast2, ukrainianJottedLast, ukrainianJotted1, changeAssimilative,
- separatePunct0, ukrainianToMoreSounding, changeH2X, change2BS, firstChange, readEnglishWithUkrainian, numberSounds,
+ separatePunct0, ukrainianToMoreSounding, changeH2X, change2BS, firstChange, readEnglishWithUkrainian, numberSounds, isFiltered,
-- * Functions used to create syllables or special symbol sequences
pFunctionP, pFunctionP0, hDivideMonths2, concatSoftSign, bGroups, hFunctionH, combineSoundsLs, createSyllablesReady, accountEmphasis, isVowelL, zeroSyllablePart,
createSyllablesMultiLast2, divideToUnits, isSimPRecord, concatPunct, convertSyllableToLanguage, createSyllablesMulti, divideToListOfSoundGroupsAsLists, listOfFrames,
- divideConsonants, prepareToSyllables, listOfPoints, createSoundL, createSoundGroups, amountOfPartsForKthSyl, createSoundLChar, isSimilar, isConsonantL,
+ divideConsonants, prepareToSyllables, listOfPoints, createSoundL, createSoundGroups, amountOfPartsForKthSyl, createSoundLChar, isSimilar, isConsonantL, isFilteredForLast2,
-- * Functions that are used for sound creation itself
punctuationPauseLength, punctuationPauseLength1, endE, addSoftSign, punctL, punctOpt, punctL11, punctL1, isDigitOrDot, stringToInteger, createZeroSyllable, createSoftSign,
-- * Other functions that are used internally in these ones
@@ -46,10 +46,9 @@ import qualified Data.Char as DC (toLower, isDigit, isAlpha, isPunctuation, isSp
import Data.Maybe (Maybe(Just,Nothing),isJust,isNothing)
import qualified Data.ByteString.Lazy.Char8 as C (ByteString,length,dropWhile,takeWhile,drop,unpack,pack,cons,empty,singleton,head,tail,
null,filter,groupBy,concat,any,span,foldr,readInteger,all)
---import qualified Data.ByteString.Internal as I (isSpaceChar8)
import Prelude (Double,String,Char,Bool(True,False),Int,Integer,IO,FilePath,($!),($),(.),(==),(/=),(/),(*),(^),foldl1,(<),(<=),(>),(>=),(&&),(||),not,null,any,notElem,
fst,snd,show,error,putStr,putStrLn,(+),(-),div,mod,(++),foldr,map,zip,zipWith,take,drop,takeWhile,concat,concatMap,toInteger,return,last,init,
- mapM_,filter,getContents,elem,last,head,tail,length,fromInteger,fromIntegral,otherwise,and,or,sum,all,words,unwords,fromIntegral,iterate,dropWhile)
+ mapM_,filter,getContents,elem,last,head,tail,length,fromInteger,fromIntegral,otherwise,and,sum,all,words,unwords,fromIntegral,iterate,dropWhile)
-- | Main function
-- Головна функція
@@ -148,19 +147,37 @@ combineSoundsLs3 k | k == 0 = combineSoundsLs30 pFunctionP0
| otherwise = combineSoundsLs30 pFunctionP
where combineSoundsLs30 p = concatMap hDivideMonths2 . concatSoftSign . bGroups p hFunctionH . combineSoundsLs
-
-- | Function that produces the list of Ukrainian strings from the primary Ukrainian string which can be further easily processed
-- Функція, яка створює список українських рядків з початкового українського рядка, які можуть бути легко оброблені далі
words2 :: String -> [C.ByteString]
words2 [] = []
words2 xs = concatPauseRecords . filter (not . C.null) . assimilationFirst . map (C.filter isSpecialNonSpace) . separatePunct . softAssociate . ukrainianLast2 . ukrainianJottedLast . ukrainianJotted1 .
- changeAssimilative . separatePunct0 . ukrainianToMoreSounding . changeH2X . C.pack . change2BS . filter (\x -> or [x >= '\x0000' && x <= '\x0006', x >= '\x0008' && x <= '\x000B',
- x >='\x000D' && x <= '\x000F', x >= '\x0017' && x <= '\x001F', x >= '\x0020' && x <= '\x0022', x >= '\x0026' && x <= '\x003B', x >= '\x003F' && x <= '\x0040',
- x == '\x005C', x >= '\x005F' && x <= '\x0060', x >= '\x007B' && x <= '\x007F', x == '\x00A0', x == '\x00AB', x == '\x00BB', x >= '\x0430' && x <= '\x0449',
- x== '\x044C', x >= '\x044E' && x <= '\x044F', x == '\x0454', x >= '\x0456' && x <= '\x0457', x == '\x0491', x >= '\x2002' && x <= '\x2014', x == '\x2026',
- x >= '\x2028' && x <= '\x2029', x >= '\x2047' && x <= '\x2049', x >= '\x20A0' && x <= '\x20A4', x == '\x20AC', x == '\x20B4', x == '\x2103',
- x == '\x2109', x == '\x2122']) . map firstChange . concatMap readEnglishWithUkrainian . unwords . map (\x -> if all DC.isDigit x then concatMap numberSounds x else x) $
- words xs
+ changeAssimilative . separatePunct0 . ukrainianToMoreSounding . changeH2X . C.pack . change2BS . filter isFiltered . map firstChange . concatMap readEnglishWithUkrainian . unwords .
+ map (\x -> if all DC.isDigit x then concatMap numberSounds x else x) . words $ xs
+
+-- | Function-predicate to filter the characters used for further processment
+-- Функція-предикат, яка використовується для фільтрування потрібних символів для наступної обробки
+isFiltered :: Char -> Bool
+isFiltered x | x >= '\x044C' =
+ if x >= '\x02028'
+ then if x >= '\x20AC'
+ then x == '\x20AC' || x == '\x20B4' || x == '\x2103' || x == '\x2109' || x == '\x2122'
+ else x <= '\x2029' || (x >= '\x2047' && x <= '\x2049') || (x >= '\x20A0' && x <= '\x20A4')
+ else if x <= '\x0457'
+ then if x >= '\x0454'
+ then x /= '\x0455' && x <= '\x0457'
+ else x /= '\x044D' && x <= '\x044F'
+ else x == '\x0491' || (x >= '\x2002' && x <= '\x2014') || x == '\x2026'
+ | otherwise =
+ if x >= '\x003F'
+ then if x >= '\x007B'
+ then if x >= '\x00BB'
+ then x == '\x00BB' || (x >= '\x0430' && x <= '\x0449')
+ else (x >= '\x007B' && x <= '\x007F') || x == '\x00A0' || x == '\x00AB'
+ else x == '\x003F' || x == '\x0040' || x == '\x005C' || x == '\x005F' || x == '\x0060'
+ else if x <= '\x000F'
+ then x /= '\x000C' && x /= '\x0007'
+ else (x >= '\x0017' && x <= '\x001F') || (x >= '\x0020' && x <= '\x0022') || (x >= '\x0026' && x <= '\x003B')
-- | Function-predicate to check whether its argument is from the special volatile punctuation group that sets the duration of the additional pause
-- Функція-предикат, яка перевіряє, чи її аргумент є зі спеціальної довільної групи, яка встановлює тривалість додаткової паузи
@@ -218,7 +235,7 @@ addSoftSign file =
-- Функція, яка ділить неправильно озвучувані склади для абревіатур назв місяців мовою есперанто на дві частини
hDivideMonths2:: ((String, String), (String, Integer)) -> [((String, String), (String, Integer))]
hDivideMonths2 ((xs, ys), (zs, k)) = let y = head xs in if y >= 'j'
- then if elem y "jmos"
+ then if y `elem` "jmos"
then if y == 'j'
then case xs of
"jan" -> [(("ja", ys), (zs, k)),(("n", ys), (zs, 0))]
@@ -235,7 +252,7 @@ hDivideMonths2 ((xs, ys), (zs, k)) = let y = head xs in if y >= 'j'
"mar" -> [(("ma", ys), (zs, k)),(("r", ys), (zs, 0))]
_ -> [((xs, ys), (zs, k))]
else [((xs, ys), (zs, k))]
- else if elem y "adf"
+ else if y `elem` "adf"
then case xs of
"apr" -> [(("ap", ys), (zs, k)),(("r", ys), (zs, 0))]
"dec" -> [(("de", ys), (zs, k)),(("c", ys), (zs, 0))]
@@ -389,7 +406,7 @@ ukrainianLast2 = fst . C.foldr f v
(C.head . C.tail $ xs) == '\x0071' || (C.head . C.tail $ xs) == '\x0069']
then ('\x0013' `C.cons` zs, x `C.cons` xs)
else ('\x0049' `C.cons` zs, x `C.cons` xs)
- _ -> let ys = C.dropWhile (not . (\z -> or [DC.isPunctuation z, z == '\x0007', z == '\x000C', z >= '\x0010' && z <= '\x0016', z >= '\x0041' && z <= '\x0047', z >= '\x0049' && z <= '\x005A', z == '\x005E', z >= '\x0061' && z <= '\x007A', z >= '\x00E1' && z <= '\x00F9'])) xs in if x < '\x0074'
+ _ -> let ys = C.dropWhile (not . isFilteredForLast2) xs in if x < '\x0074'
then case x of
'\x0064' | (not . C.null $ ys) && elem (C.head ys) "\x0073\x007A\x0063" ->
('\x0064' `C.cons` '\x007A' `C.cons` zs, x `C.cons` xs)
@@ -414,6 +431,19 @@ ukrainianLast2 = fst . C.foldr f v
| otherwise -> ('\x007A' `C.cons` zs, x `C.cons` xs)
_ -> (x `C.cons` zs, x `C.cons` xs)
+-- | Function-predicate that is used to eliminate the quantity of ukrainianLast2 applications
+-- Функція-предикат, яка використовується для зменшення кількості застосувань функції ukrainianLast2
+isFilteredForLast2 :: Char -> Bool
+isFilteredForLast2 z | z <= '\x005A' =
+ if z <= '\x0016'
+ then z >= '\x0010' || (z == '\x0007' || z == '\x000C')
+ else z >= '\x0041' && z /= '\x0048'
+ | z <= '\x00F9' =
+ if z <= '\x007A'
+ then z >= '\x0061' || z == '\x005E'
+ else z >= '\x00E1' && z <= '\x00F9'
+ | otherwise = DC.isPunctuation z
+
-- | Function to convert Ukrainian "я", "ю", "є" and "ї" into some other String for syllables processing
-- Функція для перетворення українських "я", "ю", "є" та "ї" на деякі інші рядки для обробки складів
ukrainianJottedLast :: C.ByteString -> C.ByteString
@@ -442,7 +472,7 @@ ukrainianJotted1 = fst . C.foldr f v
| otherwise =
if k == '\x0044'
then (x `C.cons` '\x006A' `C.cons` '\x0069' `C.cons` C.tail ys, x `C.cons` xs)
- else if or [k == '\x0047', k == '\x0046', k == '\x004A']
+ else if k == '\x0047' || k == '\x0046' || k == '\x004A'
then if x >= '\x0030' && x <= '\x0039'
then (x `C.cons` '\x006A' `C.cons` jC k `C.cons` C.tail ys, x `C.cons` xs)
else if x >= '\x004B'
@@ -761,602 +791,698 @@ changeH2X xs | C.null xs = C.empty
-- | Function that encode the Unicode characters from '\x0430' to '\x2122' for using in the Data.ByteString.Lazy.Char8 functions
-- Функція, що кодує Unicode символи з '\x0430' по '\x2122' для використання у Data.ByteString.Lazy.Char8 функціях
change2BS :: String -> String
-change2BS (x:y:z:xs) = if y == '\x044C'
- then if x >= '\x0440'
- then if x >= '\x0446'
- then if x >= '\x0449'
- then case x of
- '\x0449' -> '\x0016':change2BS (z:xs)
- '\x0491' -> '\x0052':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else case x of
- '\x0446' -> '\x0013':change2BS (z:xs)
- '\x0447' -> '\x0014':change2BS (z:xs)
- '\x0448' -> '\x0015':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else if x >= '\x0444'
- then case x of
- '\x0444' -> '\x0011':change2BS (z:xs)
- '\x0445' -> '\x0012':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else case x of
- '\x0440' -> '\x0007':change2BS (z:xs)
- '\x0441' -> '\x000C':change2BS (z:xs)
- '\x0442' -> '\x0010':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else if x <= '\x0436'
- then if x <= '\x0433'
- then case x of
- '\x0431' -> '\x005E':change2BS (z:xs)
- '\x0432' -> '\x0078':change2BS (z:xs)
- '\x0433' -> '\x001F':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else case x of
- '\x0434' -> '\x0053':change2BS (z:xs)
- '\x0436' -> '\x0054':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else if x >= '\x043C'
- then case x of
- '\x043C' -> '\x0058':change2BS (z:xs)
- '\x043D' -> '\x0059':change2BS (z:xs)
- '\x043F' -> '\x005A':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else case x of
- '\x0437' -> '\x0055':change2BS (z:xs)
- '\x043A' -> '\x0056':change2BS (z:xs)
- '\x043B' -> '\x0057':change2BS (z:xs)
- _ -> change2BS (x:z:xs)
- else if x == '\x0434'
- then case y of
- '\x0437' -> if z == '\x044C'
- then '\x0051':change2BS xs
- else '\x004F':change2BS (z:xs)
- '\x0436' -> if z == '\x044C'
- then '\x0050':change2BS xs
- else '\x0077':change2BS (z:xs)
- _ -> '\x0064':change2BS (y:z:xs)
- else if x >= '\x2003'
- then if x >= '\x2014'
- then if x >= '\x20A2'
- then if x >= '\x20B4'
- then if x >= '\x2109'
- then case x of
- '\x2109' -> '\x00A2':change2BS (y:z:xs)
- '\x2122' -> '\x00A8':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x20B4' -> '\x00FF':change2BS (y:z:xs)
- '\x2103' -> '\x00A5':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x20A3'
- then case x of
- '\x20A2' -> '\x00FC':change2BS (y:z:xs)
- '\x20A3' -> '\x00FD':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x20A4' -> '\x00FE':change2BS (y:z:xs)
- '\x20AC' -> '\x00B5':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x2047'
- then if x >= '\x2029'
- then case x of
- '\x2029' -> '\x00F6':change2BS (y:z:xs)
- '\x2047' -> '\x00F7':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x2014' -> '\x004D':change2BS (y:z:xs)
- '\x2026' -> '.':'.':'.':change2BS (y:z:xs)
- '\x2028' -> '\x00F5':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x2049'
- then case x of
- '\x2048' -> '\x00F8':change2BS (y:z:xs)
- '\x2049' -> '\x00F9':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x20A0' -> '\x00FA':change2BS (y:z:xs)
- '\x20A1' -> '\x00FB':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x200A'
- then if x >= '\x2007'
- then if x >= '\x2009'
- then case x of
- '\x2009' -> '\x00E8':change2BS (y:z:xs)
- '\x200A' -> '\x00E9':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x2007' -> '\x00E6':change2BS (y:z:xs)
- '\x2008' -> '\x00E7':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x2004'
- then case x of
- '\x2003' -> '\x00E2':change2BS (y:z:xs)
- '\x2004' -> '\x00E3':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x2005' -> '\x00E4':change2BS (y:z:xs)
- '\x2006' -> '\x00E5':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x200E'
- then if x >= '\x200D'
- then case x of
- '\x200D' -> '\x00EC':change2BS (y:z:xs)
- '\x200E' -> '\x00ED':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x200B' -> '\x00EA':change2BS (y:z:xs)
- '\x200C' -> '\x00EB':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x2011'
- then case x of
- '\x200F' -> '\x00EE':change2BS (y:z:xs)
- '\x2010' -> '\x00EF':change2BS (y:z:xs)
- '\x2011' -> '\x00F0':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x2012' -> '\x00F1':change2BS (y:z:xs)
- '\x2013' -> '\x004C':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0440'
- then if x >= '\x0438'
- then if x >= '\x043D'
- then if x >= '\x043F'
- then case x of
- '\x043F' -> '\x0070':change2BS (y:z:xs)
- '\x0440' -> '\x0072':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x043D' -> '\x006E':change2BS (y:z:xs)
- '\x043E' -> '\x006F':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x043A'
- then case x of
- '\x0438' -> '\x0079':change2BS (y:z:xs)
- '\x0439' -> '\x006A':change2BS (y:z:xs)
- '\x043A' -> '\x006B':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x043B' -> '\x006C':change2BS (y:z:xs)
- '\x043C' -> '\x006D':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0433'
- then if x >= '\x0432'
- then case x of
- '\x0432' -> '\x0076':change2BS (y:z:xs)
- '\x0433' -> '\x0041':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x0027' -> '\x004B':change2BS (y:z:xs)
- '\x0430' -> '\x0061':change2BS (y:z:xs)
- '\x0431' -> '\x0062':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0435'
- then case x of
- '\x0434' -> '\x0064':change2BS (y:z:xs)
- '\x0435' -> '\x0065':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x0436' -> '\x0045':change2BS (y:z:xs)
- '\x0437' -> '\x007A':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0449'
- then if x >= '\x0445'
- then if x >= '\x0448'
- then case x of
- '\x0448' -> '\x0042':change2BS (y:z:xs)
- '\x0449' -> '\x0043':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x0445' -> '\x0068':change2BS (y:z:xs)
- '\x0446' -> '\x0063':change2BS (y:z:xs)
- '\x0447' -> '\x0049':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0442'
- then case x of
- '\x0441' -> '\x0073':change2BS (y:z:xs)
- '\x0442' -> '\x0074':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x0443' -> '\x0075':change2BS (y:z:xs)
- '\x0444' -> '\x0066':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0454'
- then if x >= '\x044F'
- then case x of
- '\x044F' -> '\x0047':change2BS (y:z:xs)
- '\x0454' -> '\x0046':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x044C' -> '\x0071':change2BS (y:z:xs)
- '\x044E' -> '\x004A':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else if x <= '\x0457'
- then case x of
- '\x0456' -> '\x0069':change2BS (y:z:xs)
- '\x0457' -> '\x0044':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
- else case x of
- '\x0491' -> '\x0067':change2BS (y:z:xs)
- '\x2002' -> '\x00E1':change2BS (y:z:xs)
- _ -> x:change2BS (y:z:xs)
-change2BS [x,y] = if y == '\x044C'
- then if x >= '\x0440'
- then if x >= '\x0446'
- then if x >= '\x0448'
- then case x of
- '\x0449' -> "\x0016"
- '\x0491' -> "\x0052"
- _ -> change2BS [x]
- else case x of
- '\x0446' -> "\x0013"
- '\x0447' -> "\x0014"
- '\x0448' -> "\x0015"
- _ -> change2BS [x]
- else if x <= '\x0442'
- then case x of
- '\x0440' -> "\x0007"
- '\x0441' -> "\x000C"
- '\x0442' -> "\x0010"
- _ -> change2BS [x]
- else case x of
- '\x0444' -> "\x0011"
- '\x0445' -> "\x0012"
- _ -> change2BS [x]
- else if x <= '\x0436'
- then if x >= '\x0434'
- then case x of
- '\x0434' -> "\x0053"
- '\x0436' -> "\x0054"
- _ -> change2BS [x]
- else case x of
- '\x0431' -> "\x005E"
- '\x0432' -> "\x0078"
- '\x0433' -> "\x001F"
- _ -> change2BS [x]
- else if x <= '\x043B'
- then case x of
- '\x0437' -> "\x0055"
- '\x043A' -> "\x0056"
- '\x043B' -> "\x0057"
- _ -> change2BS [x]
- else case x of
- '\x043C' -> "\x0058"
- '\x043D' -> "\x0059"
- '\x043F' -> "\x005A"
- _ -> change2BS [x]
- else if x == '\x0434'
- then case y of
- '\x0437' -> "\x004F"
- '\x0436' -> "\x0077"
- _ -> '\x0064':change2BS [y]
- else if x >= '\x2003'
- then if x >= '\x2014'
- then if x >= '\x20A2'
- then if x >= '\x20B4'
- then if x >= '\x2109'
- then case x of
- '\x2109' -> '\x00A2':change2BS [y]
- '\x2122' -> '\x00A8':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x20B4' -> '\x00FF':change2BS [y]
- '\x2103' -> '\x00A5':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x20A3'
- then case x of
- '\x20A2' -> '\x00FC':change2BS [y]
- '\x20A3' -> '\x00FD':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x20A4' -> '\x00FE':change2BS [y]
- '\x20AC' -> '\x00B5':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x2047'
- then if x >= '\x2029'
- then case x of
- '\x2029' -> '\x00F6':change2BS [y]
- '\x2047' -> '\x00F7':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x2014' -> '\x004D':change2BS [y]
- '\x2026' -> '.':'.':'.':change2BS [y]
- '\x2028' -> '\x00F5':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x2049'
- then case x of
- '\x2048' -> '\x00F8':change2BS [y]
- '\x2049' -> '\x00F9':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x20A0' -> '\x00FA':change2BS [y]
- '\x20A1' -> '\x00FB':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x200A'
- then if x >= '\x2007'
- then if x >= '\x2009'
- then case x of
- '\x2009' -> '\x00E8':change2BS [y]
- '\x200A' -> '\x00E9':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x2007' -> '\x00E6':change2BS [y]
- '\x2008' -> '\x00E7':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x2004'
- then case x of
- '\x2003' -> '\x00E2':change2BS [y]
- '\x2004' -> '\x00E3':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x2005' -> '\x00E4':change2BS [y]
- '\x2006' -> '\x00E5':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x200E'
- then if x >= '\x200D'
- then case x of
- '\x200D' -> '\x00EC':change2BS [y]
- '\x200E' -> '\x00ED':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x200B' -> '\x00EA':change2BS [y]
- '\x200C' -> '\x00EB':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x2011'
- then case x of
- '\x200F' -> '\x00EE':change2BS [y]
- '\x2010' -> '\x00EF':change2BS [y]
- '\x2011' -> '\x00F0':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x2012' -> '\x00F1':change2BS [y]
- '\x2013' -> '\x004C':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0440'
- then if x >= '\x0438'
- then if x >= '\x043D'
- then if x >= '\x043F'
- then case x of
- '\x043F' -> '\x0070':change2BS [y]
- '\x0440' -> '\x0072':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x043D' -> '\x006E':change2BS [y]
- '\x043E' -> '\x006F':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x043A'
- then case x of
- '\x0438' -> '\x0079':change2BS [y]
- '\x0439' -> '\x006A':change2BS [y]
- '\x043A' -> '\x006B':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x043B' -> '\x006C':change2BS [y]
- '\x043C' -> '\x006D':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0433'
- then if x >= '\x0432'
- then case x of
- '\x0432' -> '\x0076':change2BS [y]
- '\x0433' -> '\x0041':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x0027' -> '\x004B':change2BS [y]
- '\x0430' -> '\x0061':change2BS [y]
- '\x0431' -> '\x0062':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0435'
- then case x of
- '\x0434' -> '\x0064':change2BS [y]
- '\x0435' -> '\x0065':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x0436' -> '\x0045':change2BS [y]
- '\x0437' -> '\x007A':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0449'
- then if x >= '\x0445'
- then if x >= '\x0448'
- then case x of
- '\x0448' -> '\x0042':change2BS [y]
- '\x0449' -> '\x0043':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x0445' -> '\x0068':change2BS [y]
- '\x0446' -> '\x0063':change2BS [y]
- '\x0447' -> '\x0049':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0442'
- then case x of
- '\x0441' -> '\x0073':change2BS [y]
- '\x0442' -> '\x0074':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x0443' -> '\x0075':change2BS [y]
- '\x0444' -> '\x0066':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0454'
- then if x >= '\x044F'
- then case x of
- '\x044F' -> '\x0047':change2BS [y]
- '\x0454' -> '\x0046':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x044C' -> '\x0071':change2BS [y]
- '\x044E' -> '\x004A':change2BS [y]
- _ -> x:change2BS [y]
- else if x <= '\x0457'
- then case x of
- '\x0456' -> '\x0069':change2BS [y]
- '\x0457' -> '\x0044':change2BS [y]
- _ -> x:change2BS [y]
- else case x of
- '\x0491' -> '\x0067':change2BS [y]
- '\x2002' -> '\x00E1':change2BS [y]
- _ -> x:change2BS [y]
-change2BS [x] = if x >= '\x2003'
- then if x >= '\x2014'
- then if x >= '\x20A2'
- then if x >= '\x20B4'
- then if x >= '\x2109'
- then case x of
- '\x2109' -> "\x00A2"
- '\x2122' -> "\x00A8"
- _ -> [x]
- else case x of
- '\x20B4' -> "\x00FF"
- '\x2103' -> "\x00A5"
- _ -> [x]
- else if x <= '\x20A3'
- then case x of
- '\x20A2' -> "\x00FC"
- '\x20A3' -> "\x00FD"
- _ -> [x]
- else case x of
- '\x20A4' -> "\x00FE"
- '\x20AC' -> "\x00B5"
- _ -> [x]
- else if x <= '\x2047'
- then if x >= '\x2029'
- then case x of
- '\x2029' -> "\x00F6"
- '\x2047' -> "\x00F7"
- _ -> [x]
- else case x of
- '\x2014' -> "\x004D"
- '\x2026' -> "..."
- '\x2028' -> "\x00F5"
- _ -> [x]
- else if x <= '\x2049'
- then case x of
- '\x2048' -> "\x00F8"
- '\x2049' -> "\x00F9"
- _ -> [x]
- else case x of
- '\x20A0' -> "\x00FA"
- '\x20A1' -> "\x00FB"
- _ -> [x]
- else if x <= '\x200A'
- then if x >= '\x2007'
- then if x >= '\x2009'
- then case x of
- '\x2009' -> "\x00E8"
- '\x200A' -> "\x00E9"
- _ -> [x]
- else case x of
- '\x2007' -> "\x00E6"
- '\x2008' -> "\x00E7"
- _ -> [x]
- else if x <= '\x2004'
- then case x of
- '\x2003' -> "\x00E2"
- '\x2004' -> "\x00E3"
- _ -> [x]
- else case x of
- '\x2005' -> "\x00E4"
- '\x2006' -> "\x00E5"
- _ -> [x]
- else if x <= '\x200E'
- then if x >= '\x200D'
- then case x of
- '\x200D' -> "\x00EC"
- '\x200E' -> "\x00ED"
- _ -> [x]
- else case x of
- '\x200B' -> "\x00EA"
- '\x200C' -> "\x00EB"
- _ -> [x]
- else if x <= '\x2011'
- then case x of
- '\x200F' -> "\x00EE"
- '\x2010' -> "\x00EF"
- '\x2011' -> "\x00F0"
- _ -> [x]
- else case x of
- '\x2012' -> "\x00F1"
- '\x2013' -> "\x004C"
- _ -> [x]
- else if x <= '\x0440'
- then if x >= '\x0438'
- then if x >= '\x043D'
- then if x >= '\x043F'
- then case x of
- '\x043F' -> "\x0070"
- '\x0440' -> "\x0072"
- _ -> [x]
- else case x of
- '\x043D' -> "\x006E"
- '\x043E' -> "\x006F"
- _ -> [x]
- else if x <= '\x043A'
- then case x of
- '\x0438' -> "\x0079"
- '\x0439' -> "\x006A"
- '\x043A' -> "\x006B"
- _ -> [x]
- else case x of
- '\x043B' -> "\x006C"
- '\x043C' -> "\x006D"
- _ -> [x]
- else if x <= '\x0433'
- then if x >= '\x0432'
- then case x of
- '\x0432' -> "\x0076"
- '\x0433' -> "\x0041"
- _ -> [x]
- else case x of
- '\x0027' -> "\x004B"
- '\x0430' -> "\x0061"
- '\x0431' -> "\x0062"
- _ -> [x]
- else if x <= '\x0435'
- then case x of
- '\x0434' -> "\x0064"
- '\x0435' -> "\x0065"
- _ -> [x]
- else case x of
- '\x0436' -> "\x0045"
- '\x0437' -> "\x007A"
- _ -> [x]
- else if x <= '\x0449'
- then if x >= '\x0445'
- then if x >= '\x0448'
- then case x of
- '\x0448' -> "\x0042"
- '\x0449' -> "\x0043"
- _ -> [x]
- else case x of
- '\x0445' -> "\x0068"
- '\x0446' -> "\x0063"
- '\x0447' -> "\x0049"
- _ -> [x]
- else if x <= '\x0442'
- then case x of
- '\x0441' -> "\x0073"
- '\x0442' -> "\x0074"
- _ -> [x]
- else case x of
- '\x0443' -> "\x0075"
- '\x0444' -> "\x0066"
- _ -> [x]
- else if x <= '\x0454'
- then if x >= '\x044F'
- then case x of
- '\x044F' -> "\x0047"
- '\x0454' -> "\x0046"
- _ -> [x]
- else case x of
- '\x044C' -> "\x0071"
- '\x044E' -> "\x004A"
- _ -> [x]
- else if x <= '\x0457'
- then case x of
- '\x0456' -> "\x0069"
- '\x0457' -> "\x0044"
- _ -> [x]
- else case x of
- '\x0491' -> "\x0067"
- '\x2002' -> "\x00E1"
- _ -> [x]
+change2BS (x : (y : (z : xs)))
+ | y == '\1100' =
+ if x >= '\1088' then
+ if x >= '\1094' then
+ if x >= '\1097' then
+ case x of
+ '\1097' -> '\SYN' : change2BS (z : xs)
+ '\1169' -> 'R' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ case x of
+ '\1094' -> '\DC3' : change2BS (z : xs)
+ '\1095' -> '\DC4' : change2BS (z : xs)
+ '\1096' -> '\NAK' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ if x >= '\1092' then
+ case x of
+ '\1092' -> '\DC1' : change2BS (z : xs)
+ '\1093' -> '\DC2' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ case x of
+ '\1088' -> '\a' : change2BS (z : xs)
+ '\1089' -> '\f' : change2BS (z : xs)
+ '\1090' -> '\DLE' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ if x <= '\1078' then
+ if x <= '\1075' then
+ case x of
+ '\1073' -> '^' : change2BS (z : xs)
+ '\1074' -> 'x' : change2BS (z : xs)
+ '\1075' -> '\US' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ case x of
+ '\1076' -> 'S' : change2BS (z : xs)
+ '\1078' -> 'T' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ if x >= '\1084' then
+ case x of
+ '\1084' -> 'X' : change2BS (z : xs)
+ '\1085' -> 'Y' : change2BS (z : xs)
+ '\1087' -> 'Z' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ else
+ case x of
+ '\1079' -> 'U' : change2BS (z : xs)
+ '\1082' -> 'V' : change2BS (z : xs)
+ '\1083' -> 'W' : change2BS (z : xs)
+ _ -> change2BS (x : z : xs)
+ | x == '\1076' =
+ case y of
+ '\1079' -> if z == '\1100' then 'Q' : change2BS xs else
+ 'O' : change2BS (z : xs)
+ '\1078' -> if z == '\1100' then 'P' : change2BS xs else
+ 'w' : change2BS (z : xs)
+ _ -> 'd' : change2BS (y : z : xs)
+ | x >= '\8195' =
+ if x >= '\8212' then
+ if x >= '\8354' then
+ if x >= '\8372' then
+ if x >= '\8457' then
+ case x of
+ '\8457' -> '\162' : change2BS (y : z : xs)
+ '\8482' -> '\168' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8372' -> '\255' : change2BS (y : z : xs)
+ '\8451' -> '\165' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8355' then
+ case x of
+ '\8354' -> '\252' : change2BS (y : z : xs)
+ '\8355' -> '\253' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8356' -> '\254' : change2BS (y : z : xs)
+ '\8364' -> '\181' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8263' then
+ if x >= '\8233' then
+ case x of
+ '\8233' -> '\246' : change2BS (y : z : xs)
+ '\8263' -> '\247' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8212' -> 'M' : change2BS (y : z : xs)
+ '\8230' -> '.' : '.' : '.' : change2BS (y : z : xs)
+ '\8232' -> '\245' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8265' then
+ case x of
+ '\8264' -> '\248' : change2BS (y : z : xs)
+ '\8265' -> '\249' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8352' -> '\250' : change2BS (y : z : xs)
+ '\8353' -> '\251' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8202' then
+ if x >= '\8199' then
+ if x >= '\8201' then
+ case x of
+ '\8201' -> '\232' : change2BS (y : z : xs)
+ '\8202' -> '\233' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8199' -> '\230' : change2BS (y : z : xs)
+ '\8200' -> '\231' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8196' then
+ case x of
+ '\8195' -> '\226' : change2BS (y : z : xs)
+ '\8196' -> '\227' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8197' -> '\228' : change2BS (y : z : xs)
+ '\8198' -> '\229' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8206' then
+ if x >= '\8205' then
+ case x of
+ '\8205' -> '\236' : change2BS (y : z : xs)
+ '\8206' -> '\237' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8203' -> '\234' : change2BS (y : z : xs)
+ '\8204' -> '\235' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\8209' then
+ case x of
+ '\8207' -> '\238' : change2BS (y : z : xs)
+ '\8208' -> '\239' : change2BS (y : z : xs)
+ '\8209' -> '\240' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\8210' -> '\241' : change2BS (y : z : xs)
+ '\8211' -> 'L' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ | x <= '\1088' =
+ if x >= '\1080' then
+ if x >= '\1085' then
+ if x >= '\1087' then
+ case x of
+ '\1087' -> 'p' : change2BS (y : z : xs)
+ '\1088' -> 'r' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1085' -> 'n' : change2BS (y : z : xs)
+ '\1086' -> 'o' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\1082' then
+ case x of
+ '\1080' -> 'y' : change2BS (y : z : xs)
+ '\1081' -> 'j' : change2BS (y : z : xs)
+ '\1082' -> 'k' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1083' -> 'l' : change2BS (y : z : xs)
+ '\1084' -> 'm' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\1075' then
+ if x >= '\1074' then
+ case x of
+ '\1074' -> 'v' : change2BS (y : z : xs)
+ '\1075' -> 'A' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\'' -> 'K' : change2BS (y : z : xs)
+ '\1072' -> 'a' : change2BS (y : z : xs)
+ '\1073' -> 'b' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\1077' then
+ case x of
+ '\1076' -> 'd' : change2BS (y : z : xs)
+ '\1077' -> 'e' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1078' -> 'E' : change2BS (y : z : xs)
+ '\1079' -> 'z' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ | x <= '\1097' =
+ if x >= '\1093' then
+ if x >= '\1096' then
+ case x of
+ '\1096' -> 'B' : change2BS (y : z : xs)
+ '\1097' -> 'C' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1093' -> 'h' : change2BS (y : z : xs)
+ '\1094' -> 'c' : change2BS (y : z : xs)
+ '\1095' -> 'I' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ if x <= '\1090' then
+ case x of
+ '\1089' -> 's' : change2BS (y : z : xs)
+ '\1090' -> 't' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1091' -> 'u' : change2BS (y : z : xs)
+ '\1092' -> 'f' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ | x <= '\1108' =
+ if x >= '\1103' then
+ case x of
+ '\1103' -> 'G' : change2BS (y : z : xs)
+ '\1108' -> 'F' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ else
+ case x of
+ '\1100' -> 'q' : change2BS (y : z : xs)
+ '\1102' -> 'J' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ | x <= '\1111' =
+ case x of
+ '\1110' -> 'i' : change2BS (y : z : xs)
+ '\1111' -> 'D' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+ | otherwise =
+ case x of
+ '\1169' -> 'g' : change2BS (y : z : xs)
+ '\8194' -> '\225' : change2BS (y : z : xs)
+ _ -> x : change2BS (y : z : xs)
+change2BS [x, y]
+ | y == '\1100' =
+ if x >= '\1088' then
+ if x >= '\1094' then
+ if x >= '\1096' then
+ case x of
+ '\1097' -> "\SYN"
+ '\1169' -> "R"
+ _ -> change2BS [x]
+ else
+ case x of
+ '\1094' -> "\DC3"
+ '\1095' -> "\DC4"
+ '\1096' -> "\NAK"
+ _ -> change2BS [x]
+ else
+ if x <= '\1090' then
+ case x of
+ '\1088' -> "\a"
+ '\1089' -> "\f"
+ '\1090' -> "\DLE"
+ _ -> change2BS [x]
+ else
+ case x of
+ '\1092' -> "\DC1"
+ '\1093' -> "\DC2"
+ _ -> change2BS [x]
+ else
+ if x <= '\1078' then
+ if x >= '\1076' then
+ case x of
+ '\1076' -> "S"
+ '\1078' -> "T"
+ _ -> change2BS [x]
+ else
+ case x of
+ '\1073' -> "^"
+ '\1074' -> "x"
+ '\1075' -> "\US"
+ _ -> change2BS [x]
+ else
+ if x <= '\1083' then
+ case x of
+ '\1079' -> "U"
+ '\1082' -> "V"
+ '\1083' -> "W"
+ _ -> change2BS [x]
+ else
+ case x of
+ '\1084' -> "X"
+ '\1085' -> "Y"
+ '\1087' -> "Z"
+ _ -> change2BS [x]
+ | x == '\1076' =
+ case y of
+ '\1079' -> "O"
+ '\1078' -> "w"
+ _ -> 'd' : change2BS [y]
+ | x >= '\8195' =
+ if x >= '\8212' then
+ if x >= '\8354' then
+ if x >= '\8372' then
+ if x >= '\8457' then
+ case x of
+ '\8457' -> '\162' : change2BS [y]
+ '\8482' -> '\168' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8372' -> '\255' : change2BS [y]
+ '\8451' -> '\165' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8355' then
+ case x of
+ '\8354' -> '\252' : change2BS [y]
+ '\8355' -> '\253' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8356' -> '\254' : change2BS [y]
+ '\8364' -> '\181' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8263' then
+ if x >= '\8233' then
+ case x of
+ '\8233' -> '\246' : change2BS [y]
+ '\8263' -> '\247' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8212' -> 'M' : change2BS [y]
+ '\8230' -> '.' : '.' : '.' : change2BS [y]
+ '\8232' -> '\245' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8265' then
+ case x of
+ '\8264' -> '\248' : change2BS [y]
+ '\8265' -> '\249' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8352' -> '\250' : change2BS [y]
+ '\8353' -> '\251' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8202' then
+ if x >= '\8199' then
+ if x >= '\8201' then
+ case x of
+ '\8201' -> '\232' : change2BS [y]
+ '\8202' -> '\233' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8199' -> '\230' : change2BS [y]
+ '\8200' -> '\231' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8196' then
+ case x of
+ '\8195' -> '\226' : change2BS [y]
+ '\8196' -> '\227' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8197' -> '\228' : change2BS [y]
+ '\8198' -> '\229' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8206' then
+ if x >= '\8205' then
+ case x of
+ '\8205' -> '\236' : change2BS [y]
+ '\8206' -> '\237' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8203' -> '\234' : change2BS [y]
+ '\8204' -> '\235' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\8209' then
+ case x of
+ '\8207' -> '\238' : change2BS [y]
+ '\8208' -> '\239' : change2BS [y]
+ '\8209' -> '\240' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\8210' -> '\241' : change2BS [y]
+ '\8211' -> 'L' : change2BS [y]
+ _ -> x : change2BS [y]
+ | x <= '\1088' =
+ if x >= '\1080' then
+ if x >= '\1085' then
+ if x >= '\1087' then
+ case x of
+ '\1087' -> 'p' : change2BS [y]
+ '\1088' -> 'r' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1085' -> 'n' : change2BS [y]
+ '\1086' -> 'o' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\1082' then
+ case x of
+ '\1080' -> 'y' : change2BS [y]
+ '\1081' -> 'j' : change2BS [y]
+ '\1082' -> 'k' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1083' -> 'l' : change2BS [y]
+ '\1084' -> 'm' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\1075' then
+ if x >= '\1074' then
+ case x of
+ '\1074' -> 'v' : change2BS [y]
+ '\1075' -> 'A' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\'' -> 'K' : change2BS [y]
+ '\1072' -> 'a' : change2BS [y]
+ '\1073' -> 'b' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\1077' then
+ case x of
+ '\1076' -> 'd' : change2BS [y]
+ '\1077' -> 'e' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1078' -> 'E' : change2BS [y]
+ '\1079' -> 'z' : change2BS [y]
+ _ -> x : change2BS [y]
+ | x <= '\1097' =
+ if x >= '\1093' then
+ if x >= '\1096' then
+ case x of
+ '\1096' -> 'B' : change2BS [y]
+ '\1097' -> 'C' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1093' -> 'h' : change2BS [y]
+ '\1094' -> 'c' : change2BS [y]
+ '\1095' -> 'I' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ if x <= '\1090' then
+ case x of
+ '\1089' -> 's' : change2BS [y]
+ '\1090' -> 't' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1091' -> 'u' : change2BS [y]
+ '\1092' -> 'f' : change2BS [y]
+ _ -> x : change2BS [y]
+ | x <= '\1108' =
+ if x >= '\1103' then
+ case x of
+ '\1103' -> 'G' : change2BS [y]
+ '\1108' -> 'F' : change2BS [y]
+ _ -> x : change2BS [y]
+ else
+ case x of
+ '\1100' -> 'q' : change2BS [y]
+ '\1102' -> 'J' : change2BS [y]
+ _ -> x : change2BS [y]
+ | x <= '\1111' =
+ case x of
+ '\1110' -> 'i' : change2BS [y]
+ '\1111' -> 'D' : change2BS [y]
+ _ -> x : change2BS [y]
+ | otherwise =
+ case x of
+ '\1169' -> 'g' : change2BS [y]
+ '\8194' -> '\225' : change2BS [y]
+ _ -> x : change2BS [y]
+change2BS [x]
+ | x >= '\8195' =
+ if x >= '\8212' then
+ if x >= '\8354' then
+ if x >= '\8372' then
+ if x >= '\8457' then
+ case x of
+ '\8457' -> "\162"
+ '\8482' -> "\168"
+ _ -> [x]
+ else
+ case x of
+ '\8372' -> "\255"
+ '\8451' -> "\165"
+ _ -> [x]
+ else
+ if x <= '\8355' then
+ case x of
+ '\8354' -> "\252"
+ '\8355' -> "\253"
+ _ -> [x]
+ else
+ case x of
+ '\8356' -> "\254"
+ '\8364' -> "\181"
+ _ -> [x]
+ else
+ if x <= '\8263' then
+ if x >= '\8233' then
+ case x of
+ '\8233' -> "\246"
+ '\8263' -> "\247"
+ _ -> [x]
+ else
+ case x of
+ '\8212' -> "M"
+ '\8230' -> "..."
+ '\8232' -> "\245"
+ _ -> [x]
+ else
+ if x <= '\8265' then
+ case x of
+ '\8264' -> "\248"
+ '\8265' -> "\249"
+ _ -> [x]
+ else
+ case x of
+ '\8352' -> "\250"
+ '\8353' -> "\251"
+ _ -> [x]
+ else
+ if x <= '\8202' then
+ if x >= '\8199' then
+ if x >= '\8201' then
+ case x of
+ '\8201' -> "\232"
+ '\8202' -> "\233"
+ _ -> [x]
+ else
+ case x of
+ '\8199' -> "\230"
+ '\8200' -> "\231"
+ _ -> [x]
+ else
+ if x <= '\8196' then
+ case x of
+ '\8195' -> "\226"
+ '\8196' -> "\227"
+ _ -> [x]
+ else
+ case x of
+ '\8197' -> "\228"
+ '\8198' -> "\229"
+ _ -> [x]
+ else
+ if x <= '\8206' then
+ if x >= '\8205' then
+ case x of
+ '\8205' -> "\236"
+ '\8206' -> "\237"
+ _ -> [x]
+ else
+ case x of
+ '\8203' -> "\234"
+ '\8204' -> "\235"
+ _ -> [x]
+ else
+ if x <= '\8209' then
+ case x of
+ '\8207' -> "\238"
+ '\8208' -> "\239"
+ '\8209' -> "\240"
+ _ -> [x]
+ else
+ case x of
+ '\8210' -> "\241"
+ '\8211' -> "L"
+ _ -> [x]
+ | x <= '\1088' =
+ if x >= '\1080' then
+ if x >= '\1085' then
+ if x >= '\1087' then
+ case x of
+ '\1087' -> "p"
+ '\1088' -> "r"
+ _ -> [x]
+ else
+ case x of
+ '\1085' -> "n"
+ '\1086' -> "o"
+ _ -> [x]
+ else
+ if x <= '\1082' then
+ case x of
+ '\1080' -> "y"
+ '\1081' -> "j"
+ '\1082' -> "k"
+ _ -> [x]
+ else
+ case x of
+ '\1083' -> "l"
+ '\1084' -> "m"
+ _ -> [x]
+ else
+ if x <= '\1075' then
+ if x >= '\1074' then
+ case x of
+ '\1074' -> "v"
+ '\1075' -> "A"
+ _ -> [x]
+ else
+ case x of
+ '\'' -> "K"
+ '\1072' -> "a"
+ '\1073' -> "b"
+ _ -> [x]
+ else
+ if x <= '\1077' then
+ case x of
+ '\1076' -> "d"
+ '\1077' -> "e"
+ _ -> [x]
+ else
+ case x of
+ '\1078' -> "E"
+ '\1079' -> "z"
+ _ -> [x]
+ | x <= '\1097' =
+ if x >= '\1093' then
+ if x >= '\1096' then
+ case x of
+ '\1096' -> "B"
+ '\1097' -> "C"
+ _ -> [x]
+ else
+ case x of
+ '\1093' -> "h"
+ '\1094' -> "c"
+ '\1095' -> "I"
+ _ -> [x]
+ else
+ if x <= '\1090' then
+ case x of
+ '\1089' -> "s"
+ '\1090' -> "t"
+ _ -> [x]
+ else
+ case x of
+ '\1091' -> "u"
+ '\1092' -> "f"
+ _ -> [x]
+ | x <= '\1108' =
+ if x >= '\1103' then
+ case x of
+ '\1103' -> "G"
+ '\1108' -> "F"
+ _ -> [x]
+ else
+ case x of
+ '\1100' -> "q"
+ '\1102' -> "J"
+ _ -> [x]
+ | x <= '\1111' =
+ case x of
+ '\1110' -> "i"
+ '\1111' -> "D"
+ _ -> [x]
+ | otherwise =
+ case x of
+ '\1169' -> "g"
+ '\8194' -> "\225"
+ _ -> [x]
change2BS [] = []
-- | Function that converts Latin text into English-sounding letters in Ukrainian
@@ -1491,7 +1617,7 @@ numberSounds x | x >= '\x0035' =
-- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
punctL :: Integer -> Integer -> String -> String -> String -> [String] -> IO ()
punctL k t1 xs ys zs _ | k >= 10000000000 =
- punctL1 (let r = fromIntegral k / 100000000000 in if r >= 0.1 then r - 0.014 else 0.086) t1 xs
+ punctL1 (let r = fromIntegral k / 100000000000000 in if r >= 0.1 then r - 0.014 else 0.086) t1 xs
| DC.isPunctuation . head $ xs =
if k >= 1000200
then if k >= 10000000
@@ -1586,14 +1712,14 @@ punctOpt xs | (not . null . tail $ xs) && head xs == '!' && (DC.isDigit . head .
if head z == '\x002E'
then let zk1 = take 3 . tail $ z in
let zk2 = length zk1 in case zk2 of
- 0 -> stringToInteger z * 10000000000
- _ -> stringToInteger zk1 * 10^(11-zk2)
+ 0 -> stringToInteger z * 10000000000000
+ _ -> stringToInteger zk1 * 10^(14-zk2)
else let zk1 = take 3 . dropWithFirst (/= '\x002E') $ z in
let z0 = takeWhile (/= '\x002E') z in
let zk2 = length zk1 in
let zk3 = z0 ++ zk1 in case zk2 of
- 0 -> stringToInteger z * 10000000000
- _ -> stringToInteger zk3 * 10^(11-zk2)
+ 0 -> stringToInteger z * 10000000000000
+ _ -> stringToInteger zk3 * 10^(14-zk2)
| otherwise =
sum . map (\x -> if x >= '\x003A'
then if x >= '\x004F'
@@ -1621,7 +1747,7 @@ punctOpt xs | (not . null . tail $ xs) && head xs == '!' && (DC.isDigit . head .
-- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
punctL11 :: Integer -> Integer -> String -> String -> String -> [String] -> IO ()
punctL11 k t1 xs ys zs args | k >= 10000000000 =
- punctL1 (let r = fromIntegral k / 100000000000 in if r >= 0.1 then r - 0.014 else 0.086) t1 xs
+ punctL1 (let r = fromIntegral k / 100000000000000 in if r >= 0.1 then r - 0.014 else 0.086) t1 xs
| DC.isPunctuation . head $ xs =
if k >= 1000200
then if k >= 10000000
@@ -2333,10 +2459,10 @@ divideConsonants xs = let y = length xs in case y of
1 -> [xs]
2 | (elem (snd . head $ xs) "rq" && head xs /= last xs) || (elem (snd . head $ xs) "di" && elem (snd . head . tail $ xs) "sa") -> [[head xs], tail xs]
| otherwise -> [xs]
- 3 | elem (snd . head $ xs) "rq" -> [[head xs], tail xs]
- | elem (snd . head . tail $ xs) "rq" -> [[head xs, head . tail $ xs], [last xs]]
+ 3 | (snd . head $ xs) `elem` "rq" -> [[head xs], tail xs]
+ | (snd . head . tail $ xs) `elem` "rq" -> [[head xs, head . tail $ xs], [last xs]]
| otherwise -> [xs]
- _ | elem (snd . head $ xs) "rqdi" -> [[head xs], tail xs]
+ _ | (snd . head $ xs) `elem` "rqdi" -> [[head xs], tail xs]
| otherwise -> [xs]
-- | Function that prepares a Ukrainian word to be divided into syllables
@@ -2386,13 +2512,84 @@ amountOfPartsForKthSyl xs k = let u = length . divideToListOfSoundGroupsAsLists
createSoundLChar :: Char -> (C.ByteString, Char)
createSoundLChar x = (C.singleton x, y)
where y | isVowelL x = 'w'
- | or [x == '\x0076', x == '\x006A', x >= '\x006C' && x <= '\x006E', x == '\x0072'] = 'r'
- | or [x == '\x0078', x >= '\x0057' && x <= '\x0059', x == '\x0007'] = 'q'
- | or [x == '\x0041', x == '\x0045', x == '\x004F', x >= '\x0062' && x <= '\x0067', x == '\x0077', x == '\x007A'] = 'd'
- | or [x == '\x0013', x >= '\x0050' && x <= '\x0055', x == '\x005E'] = 'i'
- | or [x >= '\x0042' && x <= '\x0043', x == '\x0049', x == '\x0066', x == '\x0068', x == '\x006B', x == '\x0070', x >= '\x0073' && x <= '\x0074'] = 's'
- | or [x == '\x000C', x >= '\x0010' && x <= '\x0012', x >= '\x0014' && x <= '\x0016', x == '\x0056', x == '\x005A'] = 'a'
- | otherwise = '0'
+ | x <= '\x005A' = if x >= '\x0045'
+ then if x >= '\x0056'
+ then if x >= '\x0057' && x <= '\x0059'
+ then 'q'
+ else case x of
+ '\x0056' -> 'a'
+ '\x005A' -> 'a'
+ _ -> '0'
+ else if x <= '\x0049'
+ then case x of
+ '\x0045' -> 'd'
+ '\x0049' -> 's'
+ _ -> '0'
+ else if x >= '\x0050'
+ then 'i'
+ else case x of
+ '\x004F' -> 'd'
+ _ -> '0'
+ else if x >= '\x0014'
+ then if x >= '\x0042'
+ then case x of
+ '\x0042' -> 's'
+ '\x0043' -> 's'
+ _ -> '0'
+ else if x <= '\x0016'
+ then 'a'
+ else case x of
+ '\x0041' -> 'd'
+ _ -> '0'
+ else if x >= '\x0010'
+ then if x <= '\x0012'
+ then 'a'
+ else case x of
+ '\x0013' -> 'i'
+ _ -> '0'
+ else case x of
+ '\x0007' -> 'q'
+ '\x000C' -> 'a'
+ _ -> '0'
+ | x >= '\x005E' = if x >= '\x0070'
+ then if x >= '\x0077'
+ then case x of
+ '\x0077' -> 'd'
+ '\x0078' -> 'q'
+ '\x007A' -> 'd'
+ _ -> '0'
+ else if x <= '\x0072'
+ then case x of
+ '\x0070' -> 's'
+ '\x0072' -> 'r'
+ _ -> '0'
+ else if x == '\x0073' || x == '\x0074'
+ then 's'
+ else case x of
+ '\x0076' -> 'r'
+ _ -> '0'
+ else if x <= '\x0067'
+ then if x <= '\x0064'
+ then if x >= '\x0062'
+ then 'd'
+ else case x of
+ '\x005E' -> 'i'
+ _ -> '0'
+ else case x of
+ '\x0066' -> 's'
+ '\x0067' -> 'd'
+ _ -> '0'
+ else if x <= '\x006A'
+ then case x of
+ '\x0068' -> 's'
+ '\x006A' -> 'r'
+ _ -> '0'
+ else if x >= '\x006C' && x <= '\x006E'
+ then 'r'
+ else case x of
+ '\x006B' -> 's'
+ _ -> '0'
+ | otherwise = '0'
-- | Function that checks whether its arguments are both consonants
-- Функція, що перевіряє, чи є обидва її аргументи приголосні
@@ -2402,14 +2599,17 @@ isSimilar x y = isConsonantL x && isConsonantL y
-- | Function-predicate to check whether its argument is a consonant
-- Функція-предикат, яка перевіряє, чи є її аргумент приголосним
isConsonantL :: Char -> Bool
-isConsonantL x | x <= '\x005E' =
- if x <= '\x0043'
- then or [x >= '\x0010' && x <= '\x0016', x >= '\x0041' && x <= '\x0043', x == '\x0007', x == '\x000C']
- else or [x >= '\x004F' && x <= '\x005A', x == '\x005E', x == '\x0045', x == '\x0049']
+isConsonantL x | x <= '\x005E' = if x <= '\x0043'
+ then if x <= '\x0043'
+ then (x >= '\x0010' && x <= '\x0016') || x >= '\x0041'
+ else x == '\x0007' || x == '\x000C'
+ else if x >= '\x004F'
+ then x <= '\x005A'
+ else x == '\x005E' || (x == '\x0045' || x == '\x0049')
| otherwise =
if x >= '\x0070'
- then or [x >= '\x0070' && x<= '\x0074', x >= '\x0076' && x <= '\x0078', x == '\x007A']
- else or [x >= '\x0062' && x <= '\x0064', x >= '\x0066' && x <= '\x0068', x >= '\x006B' && x <= '\x006E']
+ then (x >= '\x0070' && x <= '\x0078' && x /= '\x0075') || x == '\x007A'
+ else (x >= '\x0062' && x <= '\x0068' && x /= '\x0065') || (x >= '\x006B' && x <= '\x006E')
-- | Function to create a list of Int that is used for dividing into syllables for words with one or more vowels
-- Функція, щоб створити список Int, який використовується для поділу на склади для слів з одним чи більше голосним
diff --git a/dist/build/mm1/autogen/Paths_mm1.hs b/dist/build/mm1/autogen/Paths_mm1.hs
index 2223ba9..ac64c82 100644
--- a/dist/build/mm1/autogen/Paths_mm1.hs
+++ b/dist/build/mm1/autogen/Paths_mm1.hs
@@ -26,14 +26,14 @@ catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
catchIO = Exception.catch
version :: Version
-version = Version [0,3,3,0] []
+version = Version [0,3,4,0] []
bindir, libdir, dynlibdir, datadir, libexecdir, sysconfdir :: FilePath
bindir = "/home/pi/.cabal/bin"
-libdir = "/home/pi/.cabal/lib/arm-linux-ghc-8.4.4/mm1-0.3.3.0-6eFaTkx33UL686rMlAwwz-mm1"
+libdir = "/home/pi/.cabal/lib/arm-linux-ghc-8.4.4/mm1-0.3.4.0-Fu9mn84HJXP5UTXy9hT3H9-mm1"
dynlibdir = "/home/pi/.cabal/lib/arm-linux-ghc-8.4.4"
-datadir = "/home/pi/.cabal/share/arm-linux-ghc-8.4.4/mm1-0.3.3.0"
-libexecdir = "/home/pi/.cabal/libexec/arm-linux-ghc-8.4.4/mm1-0.3.3.0"
+datadir = "/home/pi/.cabal/share/arm-linux-ghc-8.4.4/mm1-0.3.4.0"
+libexecdir = "/home/pi/.cabal/libexec/arm-linux-ghc-8.4.4/mm1-0.3.4.0"
sysconfdir = "/home/pi/.cabal/etc"
getBinDir, getLibDir, getDynLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
diff --git a/dist/build/mm1/autogen/cabal_macros.h b/dist/build/mm1/autogen/cabal_macros.h
index af6ef40..24176d1 100644
--- a/dist/build/mm1/autogen/cabal_macros.h
+++ b/dist/build/mm1/autogen/cabal_macros.h
@@ -1,14 +1,14 @@
/* DO NOT EDIT: This file is automatically generated by Cabal */
-/* package mm1-0.3.3.0 */
+/* package mm1-0.3.4.0 */
#ifndef VERSION_mm1
-#define VERSION_mm1 "0.3.3.0"
+#define VERSION_mm1 "0.3.4.0"
#endif /* VERSION_mm1 */
#ifndef MIN_VERSION_mm1
#define MIN_VERSION_mm1(major1,major2,minor) (\
(major1) < 0 || \
(major1) == 0 && (major2) < 3 || \
- (major1) == 0 && (major2) == 3 && (minor) <= 3)
+ (major1) == 0 && (major2) == 3 && (minor) <= 4)
#endif /* MIN_VERSION_mm1 */
/* package base-4.11.1.0 */
@@ -155,8 +155,8 @@
#endif /* MIN_TOOL_VERSION_strip */
#ifndef CURRENT_COMPONENT_ID
-#define CURRENT_COMPONENT_ID "mm1-0.3.3.0-6eFaTkx33UL686rMlAwwz-mm1"
+#define CURRENT_COMPONENT_ID "mm1-0.3.4.0-Fu9mn84HJXP5UTXy9hT3H9-mm1"
#endif /* CURRENT_COMPONENT_ID */
#ifndef CURRENT_PACKAGE_VERSION
-#define CURRENT_PACKAGE_VERSION "0.3.3.0"
+#define CURRENT_PACKAGE_VERSION "0.3.4.0"
#endif /* CURRENT_PACKAGE_VERSION */
diff --git a/dist/doc/html/mm1/mm1/Main.html b/dist/doc/html/mm1/mm1/Main.html
index 7083218..2849f75 100644
--- a/dist/doc/html/mm1/mm1/Main.html
+++ b/dist/doc/html/mm1/mm1/Main.html
@@ -1,4 +1,4 @@
-Main
Function that for the Ukrainian syllable represented as ((String, String),(String,Integer)) creates sounds
Функція, що для українського складу представленого як ((String, String),(String,Integer)) створює звуки
Function that is used to find out the ending of SoX executable installed if any
Функція, яка використовується для того, щоб знайти закінчення SoX програми, якщо така встановлена в системі
Function that prepares a String for processing by the eSpeak and SoX for non-zero-syllable words
@@ -19,7 +19,8 @@
Функція, що кодує Unicode символи з '\x0430' по '\x2122' для використання у Data.ByteString.Lazy.Char8 функціях
Function that converts letters to lower case letters and makes some additional punctuation changes
Функція, що конвертує літери в прописні літери та робить додаткові пунктуаційні зміни
Function that converts Latin text into English-sounding letters in Ukrainian
Функція, яка конвертує текст латиницею в літери, які звучать по-англійськи, записані українською
Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer))
+ Функція, яка озвучує відокремлені пробілами числа цифра за цифрою
Function-predicate to filter the characters used for further processment
+ Функція-предикат, яка використовується для фільтрування потрібних символів для наступної обробки
Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer))
Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer))
Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer)) for args containing -W or W
Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer)) для args, які містять -W або W
Function that divides wrongly sounding syllables for abbeviations of esperanto months into parts
Функція, яка ділить неправильно озвучувані склади для абревіатур назв місяців мовою есперанто на дві частини
Function that concatenates alone soft sign with the previous letter (Esperanto or Greek)
@@ -47,7 +48,8 @@
Додаткова функція, щоб визначити, яку кількість частин потрібно взяти для k-го складу
Function that converts encoded Char into a tuple (ByteString, Char) for further usage in syllable segmentation
Функція, що конвертує кодований символ у кортеж (ByteString, Char) для подальшого використання у поділі на склади
Function-predicate that is used to eliminate the quantity of ukrainianLast2 applications
+ Функція-предикат, яка використовується для зменшення кількості застосувань функції ukrainianLast2
Function that is used to create punctuation pauses if args include "1", or "2", or "3"
Функція, що використовується для створення пунктуаційних пауз, якщо args включають "1", або "2", або "3"
Function that is used to find out the ending of eSpeak executable installed if any
Функція, яка використовується для того, щоб знайти закінчення eSpeak програми, якщо така встановлена в системі
Function that checks the eSpeak and SoX executables existence and is used for soft sign sound appending to the syllable or word
diff --git a/dist/doc/html/mm1/mm1/doc-index.html b/dist/doc/html/mm1/mm1/doc-index.html
index 57abb69..56df1ca 100644
--- a/dist/doc/html/mm1/mm1/doc-index.html
+++ b/dist/doc/html/mm1/mm1/doc-index.html
@@ -1 +1 @@
-
\ No newline at end of file
diff --git a/dist/doc/html/mm1/mm1/mm1.haddock b/dist/doc/html/mm1/mm1/mm1.haddock
index 4ce1a49..58ad2cb 100644
Binary files a/dist/doc/html/mm1/mm1/mm1.haddock and b/dist/doc/html/mm1/mm1/mm1.haddock differ
diff --git a/dist/doc/html/mm1/mm1/src/Main.html b/dist/doc/html/mm1/mm1/src/Main.html
index 33a8139..4ca4869 100644
--- a/dist/doc/html/mm1/mm1/src/Main.html
+++ b/dist/doc/html/mm1/mm1/src/Main.html
@@ -25,11 +25,11 @@
createSoundsForSyllable,endS,combineSoundsLs3,words2,-- * Functions used for preprocessingconcatPauseRecords,assimilationFirst,isSpecialNonSpace,separatePunct,softAssociate,ukrainianLast2,ukrainianJottedLast,ukrainianJotted1,changeAssimilative,
-separatePunct0,ukrainianToMoreSounding,changeH2X,change2BS,firstChange,readEnglishWithUkrainian,numberSounds,
+separatePunct0,ukrainianToMoreSounding,changeH2X,change2BS,firstChange,readEnglishWithUkrainian,numberSounds,isFiltered,-- * Functions used to create syllables or special symbol sequencespFunctionP,pFunctionP0,hDivideMonths2,concatSoftSign,bGroups,hFunctionH,combineSoundsLs,createSyllablesReady,accountEmphasis,isVowelL,zeroSyllablePart,createSyllablesMultiLast2,divideToUnits,isSimPRecord,concatPunct,convertSyllableToLanguage,createSyllablesMulti,divideToListOfSoundGroupsAsLists,listOfFrames,
-divideConsonants,prepareToSyllables,listOfPoints,createSoundL,createSoundGroups,amountOfPartsForKthSyl,createSoundLChar,isSimilar,isConsonantL,
+divideConsonants,prepareToSyllables,listOfPoints,createSoundL,createSoundGroups,amountOfPartsForKthSyl,createSoundLChar,isSimilar,isConsonantL,isFilteredForLast2,-- * Functions that are used for sound creation itselfpunctuationPauseLength,punctuationPauseLength1,endE,addSoftSign,punctL,punctOpt,punctL11,punctL1,isDigitOrDot,stringToInteger,createZeroSyllable,createSoftSign,-- * Other functions that are used internally in these ones
@@ -46,2375 +46,2575 @@
importData.Maybe(Maybe(Just,Nothing),isJust,isNothing)importqualifiedData.ByteString.Lazy.Char8asC(ByteString,length,dropWhile,takeWhile,drop,unpack,pack,cons,empty,singleton,head,tail,null,filter,groupBy,concat,any,span,foldr,readInteger,all)
---import qualified Data.ByteString.Internal as I (isSpaceChar8)
-importPrelude(Double,String,Char,Bool(True,False),Int,Integer,IO,FilePath,($!),($),(.),(==),(/=),(/),(*),(^),foldl1,(<),(<=),(>),(>=),(&&),(||),not,null,any,notElem,
-fst,snd,show,error,putStr,putStrLn,(+),(-),div,mod,(++),foldr,map,zip,zipWith,take,drop,takeWhile,concat,concatMap,toInteger,return,last,init,
-mapM_,filter,getContents,elem,last,head,tail,length,fromInteger,fromIntegral,otherwise,and,or,sum,all,words,unwords,fromIntegral,iterate,dropWhile)
-
--- | Main function
--- Головна функція
-main::IO()
-main=do
-args<-getArgs
-if(not.null$args)&&((headargs=="h")||(headargs=="-h"))
-thendo
-putStr"Введіть рядок українського тексту. За замовчуванням для багатоскладових слів наголос падатиме на передостанній склад у слові. "
-putStr"Якщо Ви бажаєте змінити наголос, тоді перед словом злитно з ним напишіть натуральне число, яке є порядковим номером складу,"
-putStr"на який падає наголос, починаючи з першого складу. Наприклад, \"3мальовнИчого\" означатиме, що наголошеним буде склад з \"И\". "
-putStrLn"Не ставте дефісів або інших розділювачів (у т. ч. пробілів). Не хвилюйтеся, ці числа НЕ будуть озвучені програмою. "
-putStrLn" "
-putStr"Якщо бажаєте, щоб програма швидше читала деякі склади або літери, то можете ввести як аргументи командного рядка "
-putStr"одне з чисел 1, або 2, або 3 (кожне наступне з яких дещо прискорює вимову деяких складів та літер порівняно з попереднім, "
-putStrLn"втім різниця не така велика). "
-putStrLn" "
-putStrLn"Якщо Ви бажаєте, щоб усі склади розбивалися для озвучування на звуки, то введіть як аргумент командного рядка \"-W\" або \"W\". "
-putStrLn""
-putStr"Якщо бажаєте задати свою тривалість паузи, можете задати додаткову тривалість паузи, вставивши в текст на місці паузи набір символів "
-putStr"\"!1.253\", де цифри через крапку є звичайним записом числа типу Double, яке є бажаною додатковою тривалістю паузи, більшою за 0.1 секунди. "
-putStrLn"Інакше буде додано паузу 0.1 секунди. "
-elsedo
-createSoftSign
-nI2<-getContents
-letpauseWx=do
-mapM_(createSoundsForSyllablegetCPUTimeargs)x
-zz<-getCPUTime
-lett1=10000000000+(zz`div`10000000)in
-do
-eS<-endS
-callCommand$"sox"++eS++" --multi-threaded -n -r 22.05k -c 1 -b 16 "++showt1++".ee.wav delay 0.015 trim 0 0.014"
-inmapM_(pauseW.combineSoundsLs3(ifelem"W"args||elem"-W"argsthen0else1))(words2nI2)
-
--- | Function that is used instead of System.Info.os to check whether the eSpeak and SoX executables end in .exe
--- Функція, яка використовується замість System.Info.os, щоб перевірити, чи eSpeak і SoX програми закінчуються на .exe
-endOfExecutable::String->IOString
-endOfExecutableys=do
-xs<-findExecutableys
-ifisJustxs
-thendo
-zs<-findExecutable(ys++".exe")
-ifisNothingzs
-thenreturn""
-elseerror("Please, use only one file as executable "++ys++"!\n")
-elsedo
-zs<-findExecutable(ys++".exe")
-ifisJustzs
-thenreturn".exe"
-elseerror("Please, install the executable "++ys++" into the directory in the PATH variable! \n")
-
--- | Function that is used to find out the ending of eSpeak executable installed if any
--- Функція, яка використовується для того, щоб знайти закінчення eSpeak програми, якщо така встановлена в системі
-endE::IOString
-endE=endOfExecutable"espeak"
-
--- | Function that is used to find out the ending of SoX executable installed if any
--- Функція, яка використовується для того, щоб знайти закінчення SoX програми, якщо така встановлена в системі
-endS::IOString
-endS=endOfExecutable"sox"
-
--- | Function that checks the eSpeak and SoX executables existence and is used for soft sign sound creation
--- Функція, що перевіряє існування eSpeak і SoX додатків у системі та використовується для створення звуку для м'якого знаку
-createSoftSign::IO()
-createSoftSign=do
-eE<-endE
-eS<-endS
-callCommand$"espeak"++eE++" -v esperanto -g 0 -w ь.wav -z \"j\""
-callCommand$"sox"++eS++" --multi-threaded ь.wav j.wav trim 0.02 0.037"
-
--- | Function that for the Ukrainian syllable represented as ((String, String),(String,Integer)) creates sounds
--- Функція, що для українського складу представленого як ((String, String),(String,Integer)) створює звуки
-createSoundsForSyllable::IOInteger->[String]->((String,String),(String,Integer))->IO()
-createSoundsForSyllabletimeargs((xs,ys),(zs,k))=casekof
-0->do
-t<-time
-lett1=10000000000+(t`div`10000000)inifnullargs
-thenpunctuationPauseLengtht1xsyszsargs
-elsepunctuationPauseLength1t1xsyszsargs
-_->do
-t<-time
-lett1=10000000000+(t`div`10000000)in
-iflastxs=='q'
-thendo
-eE<-endE
-callCommand$"espeak"++eE++" -v "++ys++" "++zs++" -w "++showt1++"."++filter(/='q')xs++".wav \""++filter(/='q')xs++"\""
-addSoftSign$showt1++"."++filter(/='q')xs++".wav"
-elsedo
-eE<-endE
-callCommand$"espeak"++eE++" -v "++ys++" "++zs++" -w "++showt1++"."++filter(/='q')xs++".wav \""++filter(/='q')xs++"\""
-
--- | Function that prepares a String for processing by the eSpeak and SoX for non-zero-syllable words
--- Функція, яка готує слово з голосним для подальшої обробки eSpeak та SoX
-combineSoundsLs3::Int->C.ByteString->[((String,String),(String,Integer))]
-combineSoundsLs3k|k==0=combineSoundsLs30pFunctionP0
-|otherwise=combineSoundsLs30pFunctionP
-wherecombineSoundsLs30p=concatMaphDivideMonths2.concatSoftSign.bGroupsphFunctionH.combineSoundsLs
-
-
--- | Function that produces the list of Ukrainian strings from the primary Ukrainian string which can be further easily processed
--- Функція, яка створює список українських рядків з початкового українського рядка, які можуть бути легко оброблені далі
-words2::String->[C.ByteString]
-words2[]=[]
-words2xs=concatPauseRecords.filter(not.C.null).assimilationFirst.map(C.filterisSpecialNonSpace).separatePunct.softAssociate.ukrainianLast2.ukrainianJottedLast.ukrainianJotted1.
-changeAssimilative.separatePunct0.ukrainianToMoreSounding.changeH2X.C.pack.change2BS.filter(\x->or[x>='\x0000'&&x<='\x0006',x>='\x0008'&&x<='\x000B',
-x>='\x000D'&&x<='\x000F',x>='\x0017'&&x<='\x001F',x>='\x0020'&&x<='\x0022',x>='\x0026'&&x<='\x003B',x>='\x003F'&&x<='\x0040',
-x=='\x005C',x>='\x005F'&&x<='\x0060',x>='\x007B'&&x<='\x007F',x=='\x00A0',x=='\x00AB',x=='\x00BB',x>='\x0430'&&x<='\x0449',
-x=='\x044C',x>='\x044E'&&x<='\x044F',x=='\x0454',x>='\x0456'&&x<='\x0457',x=='\x0491',x>='\x2002'&&x<='\x2014',x=='\x2026',
-x>='\x2028'&&x<='\x2029',x>='\x2047'&&x<='\x2049',x>='\x20A0'&&x<='\x20A4',x=='\x20AC',x=='\x20B4',x=='\x2103',
-x=='\x2109',x=='\x2122']).mapfirstChange.concatMapreadEnglishWithUkrainian.unwords.map(\x->ifallDC.isDigitxthenconcatMapnumberSoundsxelsex)$
-wordsxs
-
--- | Function-predicate to check whether its argument is from the special volatile punctuation group that sets the duration of the additional pause
--- Функція-предикат, яка перевіряє, чи її аргумент є зі спеціальної довільної групи, яка встановлює тривалість додаткової паузи
-isSimPRecord::Char->Bool
-isSimPRecordx=(x=='\x0021')||isDigitOrDotx
-
--- | Function-predicate to check whether its arguments are both from the special volatile punctuation group that sets the duration of the additional pause (is used to group them by)
--- Функція-предикат, яка перевіряє, чи її аргументи обидва є зі спеціальної довільної групи, яка встановлює тривалість додаткової паузи (використовується, щоб їх згрупувати)
-isSimilarPauseRecords::C.ByteString->C.ByteString->Bool
-isSimilarPauseRecordsxy=C.allisSimPRecordx&&C.allisSimPRecordy
-
--- | Function that concatenates a list of ByteString into the single ByteString and is used to set the duration of the additional pause
--- Функція, яка ппоєднує список ByteString у один ByteString і яка використовується для встановлення тривалості додаткової паузи
-specialConcatBS::[C.ByteString]->C.ByteString
-specialConcatBSxs|not.null$xs=
-ifnull.tail$xs
-thenheadxs
-elseC.concatxs
-|otherwise=C.empty
-
--- | Function that is used for creation of the volatile pauses
--- Функція, яка використовується для створення довільних пауз
-concatPauseRecords::[C.ByteString]->[C.ByteString]
-concatPauseRecordsxs|not.null$xs=
-mapspecialConcatBS.L.groupByisSimilarPauseRecords$xs
-|otherwise=[]
-
--- | Function-predicate used for filtering and indicating that a Char '\x000C' has not space semantics after encoding to ByteString
--- Функція-предикат, яка використовується для фільтрування та вказівки на те, що символ '\x000C' має не семантику пробільного символу після кодування в ByteString
-isSpecialNonSpace::Char->Bool
-isSpecialNonSpacex=casexof
-'\x000C'->True
-_->not.DC.isSpace$x
-
--- | Function that is used to create punctuation pauses
--- Функція, що використовується для створення пунктуаційних пауз
-punctuationPauseLength::Integer->String->String->String->[String]->IO()
-punctuationPauseLengtht1xs=punctL(punctOptxs)t1xs
-
--- | Function that is used to create punctuation pauses if args include "1", or "2", or "3"
--- Функція, що використовується для створення пунктуаційних пауз, якщо args включають "1", або "2", або "3"
-punctuationPauseLength1::Integer->String->String->String->[String]->IO()
-punctuationPauseLength1t1xs=punctL11(punctOptxs)t1xs
+importPrelude(Double,String,Char,Bool(True,False),Int,Integer,IO,FilePath,($!),($),(.),(==),(/=),(/),(*),(^),foldl1,(<),(<=),(>),(>=),(&&),(||),not,null,any,notElem,
+fst,snd,show,error,putStr,putStrLn,(+),(-),div,mod,(++),foldr,map,zip,zipWith,take,drop,takeWhile,concat,concatMap,toInteger,return,last,init,
+mapM_,filter,getContents,elem,last,head,tail,length,fromInteger,fromIntegral,otherwise,and,sum,all,words,unwords,fromIntegral,iterate,dropWhile)
+
+-- | Main function
+-- Головна функція
+main::IO()
+main=do
+args<-getArgs
+if(not.null$args)&&((headargs=="h")||(headargs=="-h"))
+thendo
+putStr"Введіть рядок українського тексту. За замовчуванням для багатоскладових слів наголос падатиме на передостанній склад у слові. "
+putStr"Якщо Ви бажаєте змінити наголос, тоді перед словом злитно з ним напишіть натуральне число, яке є порядковим номером складу,"
+putStr"на який падає наголос, починаючи з першого складу. Наприклад, \"3мальовнИчого\" означатиме, що наголошеним буде склад з \"И\". "
+putStrLn"Не ставте дефісів або інших розділювачів (у т. ч. пробілів). Не хвилюйтеся, ці числа НЕ будуть озвучені програмою. "
+putStrLn" "
+putStr"Якщо бажаєте, щоб програма швидше читала деякі склади або літери, то можете ввести як аргументи командного рядка "
+putStr"одне з чисел 1, або 2, або 3 (кожне наступне з яких дещо прискорює вимову деяких складів та літер порівняно з попереднім, "
+putStrLn"втім різниця не така велика). "
+putStrLn" "
+putStrLn"Якщо Ви бажаєте, щоб усі склади розбивалися для озвучування на звуки, то введіть як аргумент командного рядка \"-W\" або \"W\". "
+putStrLn""
+putStr"Якщо бажаєте задати свою тривалість паузи, можете задати додаткову тривалість паузи, вставивши в текст на місці паузи набір символів "
+putStr"\"!1.253\", де цифри через крапку є звичайним записом числа типу Double, яке є бажаною додатковою тривалістю паузи, більшою за 0.1 секунди. "
+putStrLn"Інакше буде додано паузу 0.1 секунди. "
+elsedo
+createSoftSign
+nI2<-getContents
+letpauseWx=do
+mapM_(createSoundsForSyllablegetCPUTimeargs)x
+zz<-getCPUTime
+lett1=10000000000+(zz`div`10000000)in
+do
+eS<-endS
+callCommand$"sox"++eS++" --multi-threaded -n -r 22.05k -c 1 -b 16 "++showt1++".ee.wav delay 0.015 trim 0 0.014"
+inmapM_(pauseW.combineSoundsLs3(ifelem"W"args||elem"-W"argsthen0else1))(words2nI2)
+
+-- | Function that is used instead of System.Info.os to check whether the eSpeak and SoX executables end in .exe
+-- Функція, яка використовується замість System.Info.os, щоб перевірити, чи eSpeak і SoX програми закінчуються на .exe
+endOfExecutable::String->IOString
+endOfExecutableys=do
+xs<-findExecutableys
+ifisJustxs
+thendo
+zs<-findExecutable(ys++".exe")
+ifisNothingzs
+thenreturn""
+elseerror("Please, use only one file as executable "++ys++"!\n")
+elsedo
+zs<-findExecutable(ys++".exe")
+ifisJustzs
+thenreturn".exe"
+elseerror("Please, install the executable "++ys++" into the directory in the PATH variable! \n")
+
+-- | Function that is used to find out the ending of eSpeak executable installed if any
+-- Функція, яка використовується для того, щоб знайти закінчення eSpeak програми, якщо така встановлена в системі
+endE::IOString
+endE=endOfExecutable"espeak"
+
+-- | Function that is used to find out the ending of SoX executable installed if any
+-- Функція, яка використовується для того, щоб знайти закінчення SoX програми, якщо така встановлена в системі
+endS::IOString
+endS=endOfExecutable"sox"
+
+-- | Function that checks the eSpeak and SoX executables existence and is used for soft sign sound creation
+-- Функція, що перевіряє існування eSpeak і SoX додатків у системі та використовується для створення звуку для м'якого знаку
+createSoftSign::IO()
+createSoftSign=do
+eE<-endE
+eS<-endS
+callCommand$"espeak"++eE++" -v esperanto -g 0 -w ь.wav -z \"j\""
+callCommand$"sox"++eS++" --multi-threaded ь.wav j.wav trim 0.02 0.037"
+
+-- | Function that for the Ukrainian syllable represented as ((String, String),(String,Integer)) creates sounds
+-- Функція, що для українського складу представленого як ((String, String),(String,Integer)) створює звуки
+createSoundsForSyllable::IOInteger->[String]->((String,String),(String,Integer))->IO()
+createSoundsForSyllabletimeargs((xs,ys),(zs,k))=casekof
+0->do
+t<-time
+lett1=10000000000+(t`div`10000000)inifnullargs
+thenpunctuationPauseLengtht1xsyszsargs
+elsepunctuationPauseLength1t1xsyszsargs
+_->do
+t<-time
+lett1=10000000000+(t`div`10000000)in
+iflastxs=='q'
+thendo
+eE<-endE
+callCommand$"espeak"++eE++" -v "++ys++" "++zs++" -w "++showt1++"."++filter(/='q')xs++".wav \""++filter(/='q')xs++"\""
+addSoftSign$showt1++"."++filter(/='q')xs++".wav"
+elsedo
+eE<-endE
+callCommand$"espeak"++eE++" -v "++ys++" "++zs++" -w "++showt1++"."++filter(/='q')xs++".wav \""++filter(/='q')xs++"\""
+
+-- | Function that prepares a String for processing by the eSpeak and SoX for non-zero-syllable words
+-- Функція, яка готує слово з голосним для подальшої обробки eSpeak та SoX
+combineSoundsLs3::Int->C.ByteString->[((String,String),(String,Integer))]
+combineSoundsLs3k|k==0=combineSoundsLs30pFunctionP0
+|otherwise=combineSoundsLs30pFunctionP
+wherecombineSoundsLs30p=concatMaphDivideMonths2.concatSoftSign.bGroupsphFunctionH.combineSoundsLs
+
+-- | Function that produces the list of Ukrainian strings from the primary Ukrainian string which can be further easily processed
+-- Функція, яка створює список українських рядків з початкового українського рядка, які можуть бути легко оброблені далі
+words2::String->[C.ByteString]
+words2[]=[]
+words2xs=concatPauseRecords.filter(not.C.null).assimilationFirst.map(C.filterisSpecialNonSpace).separatePunct.softAssociate.ukrainianLast2.ukrainianJottedLast.ukrainianJotted1.
+changeAssimilative.separatePunct0.ukrainianToMoreSounding.changeH2X.C.pack.change2BS.filterisFiltered.mapfirstChange.concatMapreadEnglishWithUkrainian.unwords.
+map(\x->ifallDC.isDigitxthenconcatMapnumberSoundsxelsex).words$xs
+
+-- | Function-predicate to filter the characters used for further processment
+-- Функція-предикат, яка використовується для фільтрування потрібних символів для наступної обробки
+isFiltered::Char->Bool
+isFilteredx|x>='\x044C'=
+ifx>='\x02028'
+thenifx>='\x20AC'
+thenx=='\x20AC'||x=='\x20B4'||x=='\x2103'||x=='\x2109'||x=='\x2122'
+elsex<='\x2029'||(x>='\x2047'&&x<='\x2049')||(x>='\x20A0'&&x<='\x20A4')
+elseifx<='\x0457'
+thenifx>='\x0454'
+thenx/='\x0455'&&x<='\x0457'
+elsex/='\x044D'&&x<='\x044F'
+elsex=='\x0491'||(x>='\x2002'&&x<='\x2014')||x=='\x2026'
+|otherwise=
+ifx>='\x003F'
+thenifx>='\x007B'
+thenifx>='\x00BB'
+thenx=='\x00BB'||(x>='\x0430'&&x<='\x0449')
+else(x>='\x007B'&&x<='\x007F')||x=='\x00A0'||x=='\x00AB'
+elsex=='\x003F'||x=='\x0040'||x=='\x005C'||x=='\x005F'||x=='\x0060'
+elseifx<='\x000F'
+thenx/='\x000C'&&x/='\x0007'
+else(x>='\x0017'&&x<='\x001F')||(x>='\x0020'&&x<='\x0022')||(x>='\x0026'&&x<='\x003B')
+
+-- | Function-predicate to check whether its argument is from the special volatile punctuation group that sets the duration of the additional pause
+-- Функція-предикат, яка перевіряє, чи її аргумент є зі спеціальної довільної групи, яка встановлює тривалість додаткової паузи
+isSimPRecord::Char->Bool
+isSimPRecordx=(x=='\x0021')||isDigitOrDotx
+
+-- | Function-predicate to check whether its arguments are both from the special volatile punctuation group that sets the duration of the additional pause (is used to group them by)
+-- Функція-предикат, яка перевіряє, чи її аргументи обидва є зі спеціальної довільної групи, яка встановлює тривалість додаткової паузи (використовується, щоб їх згрупувати)
+isSimilarPauseRecords::C.ByteString->C.ByteString->Bool
+isSimilarPauseRecordsxy=C.allisSimPRecordx&&C.allisSimPRecordy
+
+-- | Function that concatenates a list of ByteString into the single ByteString and is used to set the duration of the additional pause
+-- Функція, яка ппоєднує список ByteString у один ByteString і яка використовується для встановлення тривалості додаткової паузи
+specialConcatBS::[C.ByteString]->C.ByteString
+specialConcatBSxs|not.null$xs=
+ifnull.tail$xs
+thenheadxs
+elseC.concatxs
+|otherwise=C.empty
+
+-- | Function that is used for creation of the volatile pauses
+-- Функція, яка використовується для створення довільних пауз
+concatPauseRecords::[C.ByteString]->[C.ByteString]
+concatPauseRecordsxs|not.null$xs=
+mapspecialConcatBS.L.groupByisSimilarPauseRecords$xs
+|otherwise=[]
--- | Function that checks the eSpeak and SoX executables existence and is used for soft sign sound appending to the syllable or word
--- Функція, що перевіряє існування eSpeak і SoX додатків у системі та використовується для додавання м'якого знаку до кінцевого приголосного у слові чи складі
-addSoftSign::FilePath->IO()
-addSoftSignfile=
-do
-eS<-endS
-callCommand$"sox"++eS++" --multi-threaded "++file++" m."++file++" trim 0 -0.01"
-callCommand$"sox"++eS++" --multi-threaded m."++file++" j.wav "++file
-
--- | Function that divides wrongly sounding syllables for abbeviations of esperanto months into parts
--- Функція, яка ділить неправильно озвучувані склади для абревіатур назв місяців мовою есперанто на дві частини
-hDivideMonths2::((String,String),(String,Integer))->[((String,String),(String,Integer))]
-hDivideMonths2((xs,ys),(zs,k))=lety=headxsinify>='j'
-thenifelemy"jmos"
-thenify=='j'
-thencasexsof
-"jan"->[(("ja",ys),(zs,k)),(("n",ys),(zs,0))]
-"jul"->[(("ju",ys),(zs,k)),(("l",ys),(zs,0))]
-"jun"->[(("ju",ys),(zs,k)),(("n",ys),(zs,0))]
-_->[((xs,ys),(zs,k))]
-elseifxs>="okt"
-thencasexsof
-"okt"->[(("ok",ys),(zs,k)),(("t",ys),(zs,0))]
-"sept"->[(("sep",ys),(zs,k)),(("t",ys),(zs,0))]
-_->[((xs,ys),(zs,k))]
-elsecasexsof
-"maj"->[(("ma",ys),(zs,k)),(("j",ys),(zs,0))]
-"mar"->[(("ma",ys),(zs,k)),(("r",ys),(zs,0))]
-_->[((xs,ys),(zs,k))]
-else[((xs,ys),(zs,k))]
-elseifelemy"adf"
-thencasexsof
-"apr"->[(("ap",ys),(zs,k)),(("r",ys),(zs,0))]
-"dec"->[(("de",ys),(zs,k)),(("c",ys),(zs,0))]
-"feb"->[(("fe",ys),(zs,k)),(("b",ys),(zs,0))]
-_->[((xs,ys),(zs,k))]
-else[((xs,ys),(zs,k))]
-
--- | Function that concatenates alone soft sign with the previous letter (Esperanto or Greek)
--- Функція, яка з'єднує ізольований м'який знак з попереднім приголосним (есперанто чи грецькою)
-concatSoftSign::[((String,String),(String,Integer))]->[((String,String),(String,Integer))]
-concatSoftSign(x:xs)=ifnullxs
-then[x]
-elsecasefst.fst.head$xsof
-"q"|(fst.fst$x)=="γ"->x:concatSoftSign(tailxs)
-|otherwise->(((fst.fst$x)++"q","esperanto"),sndx):concatSoftSign(tailxs)
-_->x:concatSoftSignxs
-concatSoftSign[]=[]
-
--- | Function that converts zero-syllable groups of consonant sounds into separate sounds for further processing
--- Функція, що перетворює безголосні групи приголосних у окремі звуки для подальшої обробки
-hFunctionH::((String,String),(String,Integer))->[((String,String),(String,Integer))]
-hFunctionH(([x,y],ys),(zs,_))|x=='d'=caseyof
-'z'->[(("dz",ys),(zs,0))]
-'ĵ'->[(("dĵ",ys),(zs,0))]
-_->[(("d",ys),(zs,0)),(([y],ys),(zs,0))]
-|otherwise=[(([x],ys),(zs,0)),(([y],ys),(zs,0))]
-hFunctionH((u:t:ts,ys),(zs,_))|u=='d'=casetof
-'z'->(("dz",ys),(zs,0)):hFunctionH((ts,ys),(zs,0))
-'ĵ'->(("dĵ",ys),(zs,0)):hFunctionH((ts,ys),(zs,0))
-_->(("d",ys),(zs,0)):hFunctionH((t:ts,ys),(zs,0))
-|otherwise=(([u],ys),(zs,0)):hFunctionH((t:ts,ys),(zs,0))
-hFunctionH(([x],ys),(zs,_))=[(([x],ys),(zs,0))]
-hFunctionH(([],_),(_,_))=[]
-
--- | Function that combines the emphasis and dividing into sound groups into languages
--- Функція, що поєднує наголос і поділ на групи звуків для мов
-combineSoundsLs::C.ByteString->[((String,String),(String,Integer))]
-combineSoundsLsxs|C.nullxs=[]
-|otherwise=createSyllablesReady.accountEmphasis$xs
-
--- | Function that applies additional function h to a if p is True on a
--- Функція, що застосовує додаткову функцію h до a, якщо p є Істина на a
-bGroups::(a->Bool)->(a->[a])->[a]->[a]
-bGroupsph=concatMap(\x->ifpxthenhxelse[x])
-
--- | Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer))
--- Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer))
-pFunctionP::((String,String),(String,Integer))->Bool
-pFunctionP((xs,_),(_,_))=((not.anyisVowelOrPunctuation$xs)||((length.takeWhile(not.isVowelEG)$xs)>3)||((length.dropWithFirstisVowelEG$xs)>3))&&(not.anyDC.isPunctuation$xs)
-
--- | Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer)) for args containing -W or W
--- Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer)) для args, які містять -W або W
-pFunctionP0::((String,String),(String,Integer))->Bool
-pFunctionP0((xs,_),(_,_))=not.anyDC.isPunctuation$xs
-
--- | Additional function to take into account assimilation rules that depend on the position in the word of the group of Ukrainian sounds
--- Додаткова функція, щоб врахувати правила асиміляції, які залежать від положення у слові групи українських звуків
-assimilationFirst::[C.ByteString]->[C.ByteString]
-assimilationFirst[]=[]
-assimilationFirstxs=map(\x->letz=C.dropWhileisDigitOrDashxinifC.nullz
-thenC.takeWhileisDigitOrDashx
-elsecaseC.headzof
-'\x007A'->ifC.null.C.tail$z
-thenx
-elsecaseC.head.C.tail$zof
-'\x0049'->C.concat[C.takeWhileisDigitOrDashx,'\x0042'`C.cons`C.singleton'\x0049',C.drop2z]
-'\x0042'->C.concat[C.takeWhileisDigitOrDashx,'\x0042'`C.cons`C.singleton'\x0042',C.drop2z]
-_->x
-_->x)xs
-
--- | Function that separates punctuation from the words for further processing
--- Функція, що відділяє пунктуацію від слів для подальшої обробки
-separatePunct::C.ByteString->[C.ByteString]
-separatePunctxs|C.nullxs=[C.empty]
-|(not.C.null.C.tail$xs)&&C.headxs=='!'=letz2=C.span(\x->isPunctOrSpaceBx||DC.isDigitx)xsinC.singleton' ':fstz2:separatePunct(sndz2)
-|isPunctOrSpaceB.C.head$xs=letz=C.spanisPunctOrSpaceBxsinC.singleton' ':fstz:separatePunct(sndz)
-|otherwise=letzN=C.span(not.isPunctOrSpaceB)xsinfstzN:separatePunct(sndzN)
-
--- | Additional function to check whether its argument takes into account that soft sign is considered as a part of a consonant
--- Додаткова функція, яка перевіряє, чи її аргумент бере до уваги, що м'який знак вважається частиною приголосного
-softAssociate::C.ByteString->C.ByteString
-softAssociatexs|C.nullxs=
-C.empty
-|C.null.C.tail$xs=
-C.singletonz
-|y=='\x0071'=
-ifz>='\x006B'
-thenifz>='\x0073'
-thenifz>='\x0077'
-thencasezof
-'\x0077'->'\x0050'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x007A'->'\x0055'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elsecasezof
-'\x0073'->'\x000C'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0074'->'\x0010'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0076'->'\x0078'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elseifz<='\x006D'
-thencasezof
-'\x006B'->'\x0056'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x006C'->'\x0057'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x006D'->'\x0058'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elsecasezof
-'\x006E'->'\x0059'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0070'->'\x005A'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0072'->'\x0007'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elseifz<='\x004F'
-thenifz>='\x0049'
-thencasezof
-'\x0049'->'\x0014'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x004F'->'\x0051'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elsecasezof
-'\x0042'->'\x0015'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0043'->'\x0016'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0045'->'\x0054'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elseifz<='\x0064'
-thencasezof
-'\x0062'->'\x005E'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0063'->'\x0013'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0064'->'\x0053'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-elsecasezof
-'\x0066'->'\x0011'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0067'->'\x0052'`C.cons`softAssociate(C.tail.C.tail$xs)
-'\x0068'->'\x0012'`C.cons`softAssociate(C.tail.C.tail$xs)
-_->z`C.cons`softAssociate(C.tail.C.tail$xs)
-|otherwise=z`C.cons`y`C.cons`softAssociate(C.tail.C.tail$xs)
-wherez=C.headxs
-y=C.head.C.tail$xs
-
--- | Function that applies assimilation rules to the Ukrainian preprocessed string
--- Функція, яка застосовує правила асиміляції до українського попередньо обробленого рядка
-ukrainianLast2::C.ByteString->C.ByteString
-ukrainianLast2=fst.C.foldrfv
-wherev=(C.empty,C.empty)
-fx(zs,xs)=casexof
-'\x0045'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
-(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
-then('\x0055'`C.cons`zs,x`C.cons`xs)
-else('\x0045'`C.cons`zs,x`C.cons`xs)
-'\x0042'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
-(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
-then('\x000C'`C.cons`zs,x`C.cons`xs)
-else('\x0042'`C.cons`zs,x`C.cons`xs)
-'\x0049'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
-(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
-then('\x0013'`C.cons`zs,x`C.cons`xs)
-else('\x0049'`C.cons`zs,x`C.cons`xs)
-_->letys=C.dropWhile(not.(\z->or[DC.isPunctuationz,z=='\x0007',z=='\x000C',z>='\x0010'&&z<='\x0016',z>='\x0041'&&z<='\x0047',z>='\x0049'&&z<='\x005A',z=='\x005E',z>='\x0061'&&z<='\x007A',z>='\x00E1'&&z<='\x00F9']))xsinifx<'\x0074'
-thencasexof
-'\x0064'|(not.C.null$ys)&&elem(C.headys)"\x0073\x007A\x0063"->
-('\x0064'`C.cons`'\x007A'`C.cons`zs,x`C.cons`xs)
-|(not.C.null$ys)&&elem(C.headys)"\x0045\x0042\x0049"->
-('\x0064'`C.cons`'\x0045'`C.cons`zs,x`C.cons`xs)
-|otherwise->('\x0064'`C.cons`zs,x`C.cons`xs)
-'\x0073'|(not.C.null$ys)&&(C.headys=='\x0042')->
-('\x0042'`C.cons`zs,x`C.cons`xs)
-|otherwise->('\x0073'`C.cons`zs,x`C.cons`xs)
-_->(x`C.cons`zs,x`C.cons`xs)
-elsecasexof
-'\x0074'|(not.C.null$ys)&&(C.headys=='\x0063')->
-('\x0063'`C.cons`zs,x`C.cons`xs)
-|(not.C.null$ys)&&elem(C.headys)"\x0042\x0049"->
-('\x0049'`C.cons`zs,x`C.cons`xs)
-|otherwise->('\x0074'`C.cons`zs,x`C.cons`xs)
-'\x007A'|(not.C.null$ys)&&elem(C.headys)"\x0042\x0045\x0049"->
-('\x0045'`C.cons`zs,x`C.cons`xs)
-|(not.C.null$ys)&&(C.headys=='\x0064')&&
-(not.C.null.C.tail$ys)&&((C.head.C.tail$ys)=='\x0045')->
-('\x0045'`C.cons`zs,x`C.cons`xs)
-|otherwise->('\x007A'`C.cons`zs,x`C.cons`xs)
-_->(x`C.cons`zs,x`C.cons`xs)
-
--- | Function to convert Ukrainian "я", "ю", "є" and "ї" into some other String for syllables processing
--- Функція для перетворення українських "я", "ю", "є" та "ї" на деякі інші рядки для обробки складів
-ukrainianJottedLast::C.ByteString->C.ByteString
-ukrainianJottedLastxs|C.nullxs=
-C.empty
-|otherwise=
-caseC.headxsof
-'\x0047'->'\x0071'`C.cons`'\x0061'`C.cons`ukrainianJottedLast(C.tailxs)
-'\x004A'->'\x0071'`C.cons`'\x0075'`C.cons`ukrainianJottedLast(C.tailxs)
-'\x0046'->'\x0071'`C.cons`'\x0065'`C.cons`ukrainianJottedLast(C.tailxs)
-'\x0044'->'\x006A'`C.cons`'\x0069'`C.cons`ukrainianJottedLast(C.tailxs)
-'\x0074'->ifC.null.C.tail$xs
-thenC.singleton'\x0074'
-elsecaseC.head.C.tail$xsof
-'\x0073'->'\x0063'`C.cons`ukrainianJottedLast(C.tail.C.tail$xs)
-_->'\x0074'`C.cons`ukrainianJottedLast(C.tailxs)
-_->C.headxs`C.cons`ukrainianJottedLast(C.tailxs)
-
--- | Optimized function to convert Ukrainian "я", "ю", "є" and "ї" into some other String for syllables processing
--- Оптимізована функція для перетворення українських "я", "ю", "є" та "ї" на деякі інші рядки для обробки складів
-ukrainianJotted1::C.ByteString->C.ByteString
-ukrainianJotted1=fst.C.foldrfv
-wherev=(C.empty,C.empty)
-fx(ys,xs)|C.nullxs=
-(C.singletonx,x`C.cons`xs)
-|otherwise=
-ifk=='\x0044'
-then(x`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`C.tailys,x`C.cons`xs)
-elseifor[k=='\x0047',k=='\x0046',k=='\x004A']
-thenifx>='\x0030'&&x<='\x0039'
-then(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elseifx>='\x004B'
-thenifx>='\x006F'
-thencasexof
-'\x006F'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0075'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0079'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elseifx<='\x0061'
-thencasexof
-'\x004B'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0061'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elsecasexof
-'\x0065'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0069'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elseifx<='\x0044'
-thenifx>='\x002D'
-thencasexof
-'\x002D'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0044'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elsecasexof
-'\x0020'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0027'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-elsecasexof
-'\x0046'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x0047'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-'\x004A'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
-else(x`C.cons`ys,x`C.cons`xs)
-wherek=C.headxs
-jCy|y=='\x0047'='\x0061'
-|y=='\x004A'='\x0075'
-|y=='\x0046'='\x0065'
-|otherwise=y
-
--- | Function that makes some assimilation changes for correct Ukrainian pronunciation
--- Функція, що робить деякі асиміляційні зміни для правильної української вимови
-changeAssimilative::C.ByteString->C.ByteString
-changeAssimilativexs|C.nullxs=C.empty
-|C.headxs=='\x006E'=
-ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0074'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0073'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x0074'->'\x006E'`C.cons`'\x0073'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`'\x0063'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-'\x000C'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x006B'->'\x0059'`C.cons`'\x000C'`C.cons`'\x0068'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`'\x0013'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
-_->'\x006E'`C.cons`changeAssimilative(C.tailxs)
-|C.headxs=='\x0073'=
-ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0074'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x000C'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x006B'->'\x000C'`C.cons`'\x000C'`C.cons`'\x006B'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0073'`C.cons`'\x0074'`C.cons`'\x000C'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-'\x0013'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-else'\x000C'`C.cons`'\x0013'`C.cons`'\x0013'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-'\x0049'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-else'\x0042'`C.cons`'\x0049'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-'\x0064'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-else'\x007A'`C.cons`'\x0064'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-'\x0073'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-else'\x0073'`C.cons`'\x0073'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-_->'\x0073'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
-_->'\x0073'`C.cons`changeAssimilative(C.tailxs)
-|C.headxs=='\x0047'=
-ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0074'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0064'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x0065'->ifC.null.C.tail.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail.C.tail$xsof
-'\x0073'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
-'\x0047'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
-'\x0074'->'\x006A'`C.cons`'\x0061'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x000C'`C.cons`'\x0061'`C.cons`'\x0074'`C.cons`
-changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x0073'`C.cons`'\x0047'`C.cons`
-changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x0073'`C.cons`
-changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
-_->'\x0047'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
-_->'\x0047'`C.cons`changeAssimilative(C.tailxs)
-|otherwise=C.headxs`C.cons`changeAssimilative(C.tailxs)
-
--- | Function that separates punctuation marks from the words
--- Функція, яка відділяє пунктуаційні знаки від слів
-separatePunct0::C.ByteString->C.ByteString
-separatePunct0=C.foldrfv
-wherev=C.empty
-fxys|DC.isPunctuationx||(x>='\x00E1'&&x<='\x00F9')||(x>='\x0030'&&x<='\x0039')=' '`C.cons`x`C.cons`' '`C.cons`ys
-|otherwise=x`C.cons`ys
-
--- | Function that primarily converts Ukrainian line into more sounds-based line and more oriented to more using prosodical information
--- Функція, що початково перетворює український рядок на більш орінтований на звуки рядок і більш орієнтований на використання просодійної інформації
-ukrainianToMoreSounding::C.ByteString->C.ByteString
-ukrainianToMoreSoundingxs=ifC.nullxs
-thenC.empty
-elseletfys=ifnot.C.null.C.tail$ys
-thencaseC.head.C.tail$ysof
-'\x0047'->C.headys`C.cons`'\x006A'`C.cons`'\x0061'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
-'\x004A'->C.headys`C.cons`'\x006A'`C.cons`'\x0075'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
-'\x0046'->C.headys`C.cons`'\x006A'`C.cons`'\x0065'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
-'\x0044'->C.headys`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
-_->C.headys`C.cons`ukrainianToMoreSounding(C.tailys)
-elseC.singleton.C.head$ysinletzz=C.headxsinletz2zs=C.headzs`C.cons`ukrainianToMoreSounding(C.tailzs)inifzz>='\x0051'
-thenifzz>='\x0058'
-thenifzz>='\x005E'
-thencasezzof
-'\x005E'->fxs
-'\x0071'->fxs
-'\x0078'->fxs
-_->z2xs
-elsecasezzof
-'\x0058'->fxs
-'\x0059'->fxs
-'\x005A'->fxs
-_->z2xs
-elseifzz>='\x0054'
-thenifzz>='\x0056'
-thencasezzof
-'\x0056'->fxs
-'\x0057'->fxs
-_->z2xs
-elsecasezzof
-'\x0054'->fxs
-'\x0055'->fxs
-_->z2xs
-elsecasezzof
-'\x0051'->fxs
-'\x0052'->fxs
-'\x0053'->fxs
-_->z2xs
-elseifzz<='\x0013'
-thenifzz<='\x0010'
-thencasezzof
-'\x0007'->fxs
-'\x000C'->fxs
-'\x0010'->ifnot.C.null.C.tail$xs
-thencaseC.head.C.tail$xsof
-'\x0073'->ifnot.C.null.C.tail.C.tail$xs
-thenif(C.head.C.tail.C.tail$xs)=='\x0047'
-then'\x0013'`C.cons`'\x0013'`C.cons`'\x0061'`C.cons`
-ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
-else'\x0010'`C.cons`'\x0073'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-else'\x0010'`C.cons`C.singleton'\x0073'
-_->'\x0010'`C.cons`ukrainianToMoreSounding(C.tailxs)
-elseC.singleton'\x0010'
-_->z2xs
-elsecasezzof
-'\x0011'->fxs
-'\x0012'->fxs
-'\x0013'->fxs
-_->z2xs
-elseifzz<='\x0020'
-thenifzz<='\x0015'
-thencasezzof
-'\x0014'->fxs
-'\x0015'->fxs
-_->z2xs
-elsecasezzof
-'\x0016'->fxs
-'\x0020'->ifnot.C.null.C.tail$xs
-thencaseC.head.C.tail$xsof
-'-'->ifnot.C.null.C.tail.C.tail$xs
-thenif(C.head.C.tail.C.tail$xs)=='-'
-then' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
-else' '`C.cons`'-'`C.cons`ukrainianToMoreSounding(C.tailxs)
-elseC.singleton' '
-_->' '`C.cons`ukrainianToMoreSounding(C.tailxs)
-elseC.singleton' '
-_->z2xs
-elseifzz>='\x004B'
-thencasezzof
-'\x004B'->ifnot.C.null.C.tail$xs
-thencaseC.head.C.tail$xsof
-'\x0047'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0061'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-'\x004A'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0075'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-'\x0046'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0065'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-'\x0044'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-_->C.headxs`C.cons`ukrainianToMoreSounding(C.tailxs)
-elseC.empty
-'\x0050'->fxs
-_->z2xs
-elsecasezzof
-'\x002D'->ifnot.C.null.C.tail$xs
-thencaseC.head.C.tail$xsof
-'-'->ifnot.C.null.C.tail.C.tail$xs
-thenif(C.head.C.tail.C.tail$xs)==' '
-then' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
-else' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
-elseC.singleton' '
-_->' '`C.cons`ukrainianToMoreSounding(C.tailxs)
-elseC.singleton' '
-'\x0043'->'\x0042'`C.cons`'\x0049'`C.cons`ukrainianToMoreSounding(C.tailxs)
-_->z2xs
-
--- | Function for special Ukrainian words where "г" sounds approximately as "х"
--- Функція для спеціальних українських слів, де звук "г" звучить близько до "х"
-changeH2X::C.ByteString->C.ByteString
-changeH2Xxs|C.nullxs=C.empty
-|C.headxs=='\x0076'=ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x006F'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x006B'->'\x0076'`C.cons`'\x006F'`C.cons`'\x0068'`C.cons`'\x006B'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0076'`C.cons`'\x006F'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0076'`C.cons`'\x006F'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
-_->'\x0076'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
-|C.headxs=='\x006C'=ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0065'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x006B'->'\x006C'`C.cons`'\x0065'`C.cons`'\x0068'`C.cons`'\x006B'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006C'`C.cons`'\x0065'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006C'`C.cons`'\x0065'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
-_->'\x006C'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
-|C.headxs=='\x006B'=ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0069'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x0074'->'\x006B'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006B'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006B'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
-_->'\x006B'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
-|C.headxs=='\x006E'=ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0069'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x0074'->'\x006E'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
-_->'\x006E'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
-|C.headxs=='\x0064'=ifC.null.C.tail$xs
-thenxs
-elsecaseC.head.C.tail$xsof
-'\x0069'->ifC.null.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail$xsof
-'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail$xsof
-'\x0074'->ifC.null.C.tail.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail.C.tail$xsof
-'\x0047'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail$xs
-thenxs
-elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
-'\x0072'->'\x0064'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`'\x0047'`C.cons`
-'\x0072'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`'\x0074'`C.cons`'\x0047'`C.cons`
-(C.head.C.tail.C.tail.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`'\x0074'`C.cons`(C.head.C.tail.C.tail.C.tail.C.tail$xs)`C.cons`
-changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`
-changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
-_->'\x0064'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
-_->'\x0064'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
-|otherwise=C.headxs`C.cons`changeH2X(C.tailxs)
-
--- | Function that encode the Unicode characters from '\x0430' to '\x2122' for using in the Data.ByteString.Lazy.Char8 functions
--- Функція, що кодує Unicode символи з '\x0430' по '\x2122' для використання у Data.ByteString.Lazy.Char8 функціях
-change2BS::String->String
-change2BS(x:y:z:xs)=ify=='\x044C'
-thenifx>='\x0440'
-thenifx>='\x0446'
-thenifx>='\x0449'
-thencasexof
-'\x0449'->'\x0016':change2BS(z:xs)
-'\x0491'->'\x0052':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elsecasexof
-'\x0446'->'\x0013':change2BS(z:xs)
-'\x0447'->'\x0014':change2BS(z:xs)
-'\x0448'->'\x0015':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elseifx>='\x0444'
-thencasexof
-'\x0444'->'\x0011':change2BS(z:xs)
-'\x0445'->'\x0012':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elsecasexof
-'\x0440'->'\x0007':change2BS(z:xs)
-'\x0441'->'\x000C':change2BS(z:xs)
-'\x0442'->'\x0010':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elseifx<='\x0436'
-thenifx<='\x0433'
-thencasexof
-'\x0431'->'\x005E':change2BS(z:xs)
-'\x0432'->'\x0078':change2BS(z:xs)
-'\x0433'->'\x001F':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elsecasexof
-'\x0434'->'\x0053':change2BS(z:xs)
-'\x0436'->'\x0054':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elseifx>='\x043C'
-thencasexof
-'\x043C'->'\x0058':change2BS(z:xs)
-'\x043D'->'\x0059':change2BS(z:xs)
-'\x043F'->'\x005A':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elsecasexof
-'\x0437'->'\x0055':change2BS(z:xs)
-'\x043A'->'\x0056':change2BS(z:xs)
-'\x043B'->'\x0057':change2BS(z:xs)
-_->change2BS(x:z:xs)
-elseifx=='\x0434'
-thencaseyof
-'\x0437'->ifz=='\x044C'
-then'\x0051':change2BSxs
-else'\x004F':change2BS(z:xs)
-'\x0436'->ifz=='\x044C'
-then'\x0050':change2BSxs
-else'\x0077':change2BS(z:xs)
-_->'\x0064':change2BS(y:z:xs)
-elseifx>='\x2003'
-thenifx>='\x2014'
-thenifx>='\x20A2'
-thenifx>='\x20B4'
-thenifx>='\x2109'
-thencasexof
-'\x2109'->'\x00A2':change2BS(y:z:xs)
-'\x2122'->'\x00A8':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x20B4'->'\x00FF':change2BS(y:z:xs)
-'\x2103'->'\x00A5':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x20A3'
-thencasexof
-'\x20A2'->'\x00FC':change2BS(y:z:xs)
-'\x20A3'->'\x00FD':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x20A4'->'\x00FE':change2BS(y:z:xs)
-'\x20AC'->'\x00B5':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x2047'
-thenifx>='\x2029'
-thencasexof
-'\x2029'->'\x00F6':change2BS(y:z:xs)
-'\x2047'->'\x00F7':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x2014'->'\x004D':change2BS(y:z:xs)
-'\x2026'->'.':'.':'.':change2BS(y:z:xs)
-'\x2028'->'\x00F5':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x2049'
-thencasexof
-'\x2048'->'\x00F8':change2BS(y:z:xs)
-'\x2049'->'\x00F9':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x20A0'->'\x00FA':change2BS(y:z:xs)
-'\x20A1'->'\x00FB':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x200A'
-thenifx>='\x2007'
-thenifx>='\x2009'
-thencasexof
-'\x2009'->'\x00E8':change2BS(y:z:xs)
-'\x200A'->'\x00E9':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x2007'->'\x00E6':change2BS(y:z:xs)
-'\x2008'->'\x00E7':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x2004'
-thencasexof
-'\x2003'->'\x00E2':change2BS(y:z:xs)
-'\x2004'->'\x00E3':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x2005'->'\x00E4':change2BS(y:z:xs)
-'\x2006'->'\x00E5':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x200E'
-thenifx>='\x200D'
-thencasexof
-'\x200D'->'\x00EC':change2BS(y:z:xs)
-'\x200E'->'\x00ED':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x200B'->'\x00EA':change2BS(y:z:xs)
-'\x200C'->'\x00EB':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x2011'
-thencasexof
-'\x200F'->'\x00EE':change2BS(y:z:xs)
-'\x2010'->'\x00EF':change2BS(y:z:xs)
-'\x2011'->'\x00F0':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x2012'->'\x00F1':change2BS(y:z:xs)
-'\x2013'->'\x004C':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0440'
-thenifx>='\x0438'
-thenifx>='\x043D'
-thenifx>='\x043F'
-thencasexof
-'\x043F'->'\x0070':change2BS(y:z:xs)
-'\x0440'->'\x0072':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x043D'->'\x006E':change2BS(y:z:xs)
-'\x043E'->'\x006F':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x043A'
-thencasexof
-'\x0438'->'\x0079':change2BS(y:z:xs)
-'\x0439'->'\x006A':change2BS(y:z:xs)
-'\x043A'->'\x006B':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x043B'->'\x006C':change2BS(y:z:xs)
-'\x043C'->'\x006D':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0433'
-thenifx>='\x0432'
-thencasexof
-'\x0432'->'\x0076':change2BS(y:z:xs)
-'\x0433'->'\x0041':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x0027'->'\x004B':change2BS(y:z:xs)
-'\x0430'->'\x0061':change2BS(y:z:xs)
-'\x0431'->'\x0062':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0435'
-thencasexof
-'\x0434'->'\x0064':change2BS(y:z:xs)
-'\x0435'->'\x0065':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x0436'->'\x0045':change2BS(y:z:xs)
-'\x0437'->'\x007A':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0449'
-thenifx>='\x0445'
-thenifx>='\x0448'
-thencasexof
-'\x0448'->'\x0042':change2BS(y:z:xs)
-'\x0449'->'\x0043':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x0445'->'\x0068':change2BS(y:z:xs)
-'\x0446'->'\x0063':change2BS(y:z:xs)
-'\x0447'->'\x0049':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0442'
-thencasexof
-'\x0441'->'\x0073':change2BS(y:z:xs)
-'\x0442'->'\x0074':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x0443'->'\x0075':change2BS(y:z:xs)
-'\x0444'->'\x0066':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0454'
-thenifx>='\x044F'
-thencasexof
-'\x044F'->'\x0047':change2BS(y:z:xs)
-'\x0454'->'\x0046':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x044C'->'\x0071':change2BS(y:z:xs)
-'\x044E'->'\x004A':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elseifx<='\x0457'
-thencasexof
-'\x0456'->'\x0069':change2BS(y:z:xs)
-'\x0457'->'\x0044':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-elsecasexof
-'\x0491'->'\x0067':change2BS(y:z:xs)
-'\x2002'->'\x00E1':change2BS(y:z:xs)
-_->x:change2BS(y:z:xs)
-change2BS[x,y]=ify=='\x044C'
-thenifx>='\x0440'
-thenifx>='\x0446'
-thenifx>='\x0448'
-thencasexof
-'\x0449'->"\x0016"
-'\x0491'->"\x0052"
-_->change2BS[x]
-elsecasexof
-'\x0446'->"\x0013"
-'\x0447'->"\x0014"
-'\x0448'->"\x0015"
-_->change2BS[x]
-elseifx<='\x0442'
-thencasexof
-'\x0440'->"\x0007"
-'\x0441'->"\x000C"
-'\x0442'->"\x0010"
-_->change2BS[x]
-elsecasexof
-'\x0444'->"\x0011"
-'\x0445'->"\x0012"
-_->change2BS[x]
-elseifx<='\x0436'
-thenifx>='\x0434'
-thencasexof
-'\x0434'->"\x0053"
-'\x0436'->"\x0054"
-_->change2BS[x]
-elsecasexof
-'\x0431'->"\x005E"
-'\x0432'->"\x0078"
-'\x0433'->"\x001F"
-_->change2BS[x]
-elseifx<='\x043B'
-thencasexof
-'\x0437'->"\x0055"
-'\x043A'->"\x0056"
-'\x043B'->"\x0057"
-_->change2BS[x]
-elsecasexof
-'\x043C'->"\x0058"
-'\x043D'->"\x0059"
-'\x043F'->"\x005A"
-_->change2BS[x]
-elseifx=='\x0434'
-thencaseyof
-'\x0437'->"\x004F"
-'\x0436'->"\x0077"
-_->'\x0064':change2BS[y]
-elseifx>='\x2003'
-thenifx>='\x2014'
-thenifx>='\x20A2'
-thenifx>='\x20B4'
-thenifx>='\x2109'
-thencasexof
-'\x2109'->'\x00A2':change2BS[y]
-'\x2122'->'\x00A8':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x20B4'->'\x00FF':change2BS[y]
-'\x2103'->'\x00A5':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x20A3'
-thencasexof
-'\x20A2'->'\x00FC':change2BS[y]
-'\x20A3'->'\x00FD':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x20A4'->'\x00FE':change2BS[y]
-'\x20AC'->'\x00B5':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x2047'
-thenifx>='\x2029'
-thencasexof
-'\x2029'->'\x00F6':change2BS[y]
-'\x2047'->'\x00F7':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x2014'->'\x004D':change2BS[y]
-'\x2026'->'.':'.':'.':change2BS[y]
-'\x2028'->'\x00F5':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x2049'
-thencasexof
-'\x2048'->'\x00F8':change2BS[y]
-'\x2049'->'\x00F9':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x20A0'->'\x00FA':change2BS[y]
-'\x20A1'->'\x00FB':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x200A'
-thenifx>='\x2007'
-thenifx>='\x2009'
-thencasexof
-'\x2009'->'\x00E8':change2BS[y]
-'\x200A'->'\x00E9':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x2007'->'\x00E6':change2BS[y]
-'\x2008'->'\x00E7':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x2004'
-thencasexof
-'\x2003'->'\x00E2':change2BS[y]
-'\x2004'->'\x00E3':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x2005'->'\x00E4':change2BS[y]
-'\x2006'->'\x00E5':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x200E'
-thenifx>='\x200D'
-thencasexof
-'\x200D'->'\x00EC':change2BS[y]
-'\x200E'->'\x00ED':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x200B'->'\x00EA':change2BS[y]
-'\x200C'->'\x00EB':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x2011'
-thencasexof
-'\x200F'->'\x00EE':change2BS[y]
-'\x2010'->'\x00EF':change2BS[y]
-'\x2011'->'\x00F0':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x2012'->'\x00F1':change2BS[y]
-'\x2013'->'\x004C':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0440'
-thenifx>='\x0438'
-thenifx>='\x043D'
-thenifx>='\x043F'
-thencasexof
-'\x043F'->'\x0070':change2BS[y]
-'\x0440'->'\x0072':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x043D'->'\x006E':change2BS[y]
-'\x043E'->'\x006F':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x043A'
-thencasexof
-'\x0438'->'\x0079':change2BS[y]
-'\x0439'->'\x006A':change2BS[y]
-'\x043A'->'\x006B':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x043B'->'\x006C':change2BS[y]
-'\x043C'->'\x006D':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0433'
-thenifx>='\x0432'
-thencasexof
-'\x0432'->'\x0076':change2BS[y]
-'\x0433'->'\x0041':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x0027'->'\x004B':change2BS[y]
-'\x0430'->'\x0061':change2BS[y]
-'\x0431'->'\x0062':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0435'
-thencasexof
-'\x0434'->'\x0064':change2BS[y]
-'\x0435'->'\x0065':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x0436'->'\x0045':change2BS[y]
-'\x0437'->'\x007A':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0449'
-thenifx>='\x0445'
-thenifx>='\x0448'
-thencasexof
-'\x0448'->'\x0042':change2BS[y]
-'\x0449'->'\x0043':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x0445'->'\x0068':change2BS[y]
-'\x0446'->'\x0063':change2BS[y]
-'\x0447'->'\x0049':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0442'
-thencasexof
-'\x0441'->'\x0073':change2BS[y]
-'\x0442'->'\x0074':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x0443'->'\x0075':change2BS[y]
-'\x0444'->'\x0066':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0454'
-thenifx>='\x044F'
-thencasexof
-'\x044F'->'\x0047':change2BS[y]
-'\x0454'->'\x0046':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x044C'->'\x0071':change2BS[y]
-'\x044E'->'\x004A':change2BS[y]
-_->x:change2BS[y]
-elseifx<='\x0457'
-thencasexof
-'\x0456'->'\x0069':change2BS[y]
-'\x0457'->'\x0044':change2BS[y]
-_->x:change2BS[y]
-elsecasexof
-'\x0491'->'\x0067':change2BS[y]
-'\x2002'->'\x00E1':change2BS[y]
-_->x:change2BS[y]
-change2BS[x]=ifx>='\x2003'
-thenifx>='\x2014'
-thenifx>='\x20A2'
-thenifx>='\x20B4'
-thenifx>='\x2109'
-thencasexof
-'\x2109'->"\x00A2"
-'\x2122'->"\x00A8"
-_->[x]
-elsecasexof
-'\x20B4'->"\x00FF"
-'\x2103'->"\x00A5"
-_->[x]
-elseifx<='\x20A3'
-thencasexof
-'\x20A2'->"\x00FC"
-'\x20A3'->"\x00FD"
-_->[x]
-elsecasexof
-'\x20A4'->"\x00FE"
-'\x20AC'->"\x00B5"
-_->[x]
-elseifx<='\x2047'
-thenifx>='\x2029'
-thencasexof
-'\x2029'->"\x00F6"
-'\x2047'->"\x00F7"
-_->[x]
-elsecasexof
-'\x2014'->"\x004D"
-'\x2026'->"..."
-'\x2028'->"\x00F5"
-_->[x]
-elseifx<='\x2049'
-thencasexof
-'\x2048'->"\x00F8"
-'\x2049'->"\x00F9"
-_->[x]
-elsecasexof
-'\x20A0'->"\x00FA"
-'\x20A1'->"\x00FB"
-_->[x]
-elseifx<='\x200A'
-thenifx>='\x2007'
-thenifx>='\x2009'
-thencasexof
-'\x2009'->"\x00E8"
-'\x200A'->"\x00E9"
-_->[x]
-elsecasexof
-'\x2007'->"\x00E6"
-'\x2008'->"\x00E7"
-_->[x]
-elseifx<='\x2004'
-thencasexof
-'\x2003'->"\x00E2"
-'\x2004'->"\x00E3"
-_->[x]
-elsecasexof
-'\x2005'->"\x00E4"
-'\x2006'->"\x00E5"
-_->[x]
-elseifx<='\x200E'
-thenifx>='\x200D'
-thencasexof
-'\x200D'->"\x00EC"
-'\x200E'->"\x00ED"
-_->[x]
-elsecasexof
-'\x200B'->"\x00EA"
-'\x200C'->"\x00EB"
-_->[x]
-elseifx<='\x2011'
-thencasexof
-'\x200F'->"\x00EE"
-'\x2010'->"\x00EF"
-'\x2011'->"\x00F0"
-_->[x]
-elsecasexof
-'\x2012'->"\x00F1"
-'\x2013'->"\x004C"
-_->[x]
-elseifx<='\x0440'
-thenifx>='\x0438'
-thenifx>='\x043D'
-thenifx>='\x043F'
-thencasexof
-'\x043F'->"\x0070"
-'\x0440'->"\x0072"
-_->[x]
-elsecasexof
-'\x043D'->"\x006E"
-'\x043E'->"\x006F"
-_->[x]
-elseifx<='\x043A'
-thencasexof
-'\x0438'->"\x0079"
-'\x0439'->"\x006A"
-'\x043A'->"\x006B"
-_->[x]
-elsecasexof
-'\x043B'->"\x006C"
-'\x043C'->"\x006D"
-_->[x]
-elseifx<='\x0433'
-thenifx>='\x0432'
-thencasexof
-'\x0432'->"\x0076"
-'\x0433'->"\x0041"
-_->[x]
-elsecasexof
-'\x0027'->"\x004B"
-'\x0430'->"\x0061"
-'\x0431'->"\x0062"
-_->[x]
-elseifx<='\x0435'
-thencasexof
-'\x0434'->"\x0064"
-'\x0435'->"\x0065"
-_->[x]
-elsecasexof
-'\x0436'->"\x0045"
-'\x0437'->"\x007A"
-_->[x]
-elseifx<='\x0449'
-thenifx>='\x0445'
-thenifx>='\x0448'
-thencasexof
-'\x0448'->"\x0042"
-'\x0449'->"\x0043"
-_->[x]
-elsecasexof
-'\x0445'->"\x0068"
-'\x0446'->"\x0063"
-'\x0447'->"\x0049"
-_->[x]
-elseifx<='\x0442'
-thencasexof
-'\x0441'->"\x0073"
-'\x0442'->"\x0074"
-_->[x]
-elsecasexof
-'\x0443'->"\x0075"
-'\x0444'->"\x0066"
-_->[x]
-elseifx<='\x0454'
-thenifx>='\x044F'
-thencasexof
-'\x044F'->"\x0047"
-'\x0454'->"\x0046"
-_->[x]
-elsecasexof
-'\x044C'->"\x0071"
-'\x044E'->"\x004A"
-_->[x]
-elseifx<='\x0457'
-thencasexof
-'\x0456'->"\x0069"
-'\x0457'->"\x0044"
-_->[x]
-elsecasexof
-'\x0491'->"\x0067"
-'\x2002'->"\x00E1"
-_->[x]
-change2BS[]=[]
-
--- | Function that converts Latin text into English-sounding letters in Ukrainian
--- Функція, яка конвертує текст латиницею в літери, які звучать по-англійськи, записані українською
-readEnglishWithUkrainian::Char->String
-readEnglishWithUkrainianx|x>='\x0061'&&x<='\x007A'=
-ifx>='\x006E'
-thenifx>='\x0075'
-thenifx>='\x0078'
-thencasexof
-'\x0078'->"екс"
-'\x0079'->"уай"
-_->"зед"
-elsecasexof
-'\x0075'->"ю"
-'\x0076'->"ві"
-_->"даблййу"
-elseifx<='\x0071'
-thenifx>='\x0070'
-thencasexof
-'\x0070'->"пі"
-_->"кййу"
-elsecasexof
-'\x006E'->"ен"
-_->"оу"
-elsecasexof
-'\x0072'->"ар"
-'\x0073'->"ес"
-_->"ті"
-elseifx<='\x0067'
-thenifx>='\x0065'
-thencasexof
-'\x0065'->"і"
-'\x0066'->"еф"
-_->"джи"
-elseifx<='\x0062'
-thencasexof
-'\x0061'->"ей"
-_->"бі"
-elsecasexof
-'\x0063'->"сі"
-_->"ді"
-elseifx<='\x006A'
-thencasexof
-'\x0068'->"ейч"
-'\x0069'->"ай"
-_->"джей"
-elsecasexof
-'\x006B'->"кей"
-'\x006C'->"ел"
-_->"ем"
-|x>='\x0041'&&x<='\x005A'=
-ifx>='\x004E'
-thenifx>='\x0055'
-thenifx>='\x0058'
-thencasexof
-'\x0058'->"екс"
-'\x0059'->"уай"
-_->"зед"
-elsecasexof
-'\x0055'->"ю"
-'\x0056'->"ві"
-_->"даблййу"
-elseifx<='\x0051'
-thenifx>='\x0050'
-thencasexof
-'\x0050'->"пі"
-_->"кййу"
-elsecasexof
-'\x004E'->"ен"
-_->"оу"
-elsecasexof
-'\x0052'->"ар"
-'\x0053'->"ес"
-_->"ті"
-elseifx<='\x0047'
-thenifx>='\x0045'
-thencasexof
-'\x0045'->"і"
-'\x0046'->"еф"
-_->"джи"
-elseifx<='\x0042'
-thencasexof
-'\x0041'->"ей"
-_->"бі"
-elsecasexof
-'\x0043'->"сі"
-_->"ді"
-elseifx<='\x004A'
-thencasexof
-'\x0048'->"ейч"
-'\x0049'->"ай"
-_->"джей"
-elsecasexof
-'\x004B'->"кей"
-'\x004C'->"ел"
-_->"ем"
-|otherwise=[x]
-
--- | Function that converts letters to lower case letters and makes some additional punctuation changes
--- Функція, що конвертує літери в прописні літери та робить додаткові пунктуаційні зміни
-firstChange::Char->Char
-firstChangey=caseyof
-'['->'('
-']'->')'
-'\x203C'->'!'
-_->DC.toLowery
-
--- | Function that sounds separated with whitespaces numbers digit by digit
--- Функція, яка озвучує відокремлені пробілами числа цифра за цифрою
-numberSounds::Char->String
-numberSoundsx|x>='\x0035'=
-ifx>='\x0038'
-thencasexof
-'\x0038'->" вісім "
-_->" девййать "
-elsecasexof
-'\x0035'->" пййать "
-'\x0036'->" шість "
-_->" сім "
-|otherwise=
-ifx<='\x0032'
-thencasexof
-'\x0030'->" нуль "
-'\x0031'->" 2один "
-_->" два "
-elsecasexof
-'\x0033'->" три "
-_->" чотири "
-
--- | Function that considers a number of punctuation marks for proper pause creation
--- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
-punctL::Integer->Integer->String->String->String->[String]->IO()
-punctLkt1xsyszs_|k>=10000000000=
-punctL1(letr=fromIntegralk/100000000000inifr>=0.1thenr-0.014else0.086)t1xs
-|DC.isPunctuation.head$xs=
-ifk>=1000200
-thenifk>=10000000
-thenifk>=12000000
-thencasekof
-12000000->punctL10.9t1xs
-100000000->punctL10.5t1xs
-1000000000->punctL10.3t1xs
-_->punctL10.7t1xs
-elsecasekof
-10000000->punctL10.4t1xs
-10000001->punctL10.95t1xs
-10000010->punctL10.95t1xs
-_->punctL10.7t1xs
-elseifk>=2000100
-thencasekof
-2000100->punctL11.0t1xs
-2001000->punctL11.0t1xs
-3000000->punctL10.9t1xs
-_->punctL10.7t1xs
-elsecasekof
-1000200->punctL11.2t1xs
-1001100->punctL11.3t1xs
-1002000->punctL11.2t1xs
-_->punctL10.7t1xs
-elseifk>=1100
-thenifk>=10000
-thencasekof
-10000->punctL10.6t1xs
-100000->punctL10.7t1xs
-1000000->punctL10.8t1xs
-_->punctL10.7t1xs
-elsecasekof
-1100->punctL11.2t1xs
-2000->punctL11.1t1xs
-3000->punctL11.3t1xs
-_->punctL10.7t1xs
-elseifk<=100
-thencasekof
-1->punctL10.85t1xs
-10->punctL10.75t1xs
-100->punctL10.9t1xs
-_->punctL10.7t1xs
-elsecasekof
-200->punctL11.1t1xs
-300->punctL11.3t1xs
-1000->punctL10.9t1xs
-_->punctL10.7t1xs
-|otherwise=
-let(ts,us)=oneToTuple2.filter(/='q')$xsiniflastxs=='q'
-thendo
-eE<-endE
-eS<-endS
-callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++ts++".wav \""++ts++"\"")
-callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++ts++".wav "++showt1++"."++ts++".wav "++us)
-addSoftSign$showt1++"."++ts++".wav"
-elsedo
-eE<-endE
-eS<-endS
-callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++xs++".wav \""++ts++"\"")
-callCommand$"sox"++eS++" --multi-threaded "++"m."++showt1++"."++xs++".wav "++showt1++"."++xs++".wav "++us++(ifxs=="y"then" tempo -s 0.7"else"")
-
--- | Function-predicate to check whether its argument is a digit or dot
--- Функція-предикат, яка перевіряє, чи є її аргумент цифра чи крапка
-isDigitOrDot::Char->Bool
-isDigitOrDotx=DC.isDigitx||(x=='\x002E')
-
--- | Function that converts a String with digits into an Integer
--- Функція, що конвертує String з цифрами в Integer
-stringToInteger::String->Integer
-stringToIntegerxs|nullxs=0
-|otherwise=
-foldl1((+).(*10))$!mapcharToDigitxs
-wherecharToDigitx=casexof
-'1'->1
-'2'->2
-'3'->3
-'4'->4
-'5'->5
-'6'->6
-'7'->7
-'8'->8
-'9'->9
-'0'->0
-_->error"Character Is Not a Digit!\n"
-
--- | Additional function that is used for optimization of the punctL and punctL11 functions
--- Додаткова функція, яка використовується для оптимізації функцій punctL і punctL11
-punctOpt::String->Integer
-punctOptxs|(not.null.tail$xs)&&headxs=='!'&&(DC.isDigit.head.tail$xs)=
-letz=dropWhile(=='\x0030').(\x->iflastx=='\x002E'theninitxelsex).filterisDigitOrDot$xsin
-ifheadz=='\x002E'
-thenletzk1=take3.tail$zin
-letzk2=lengthzk1incasezk2of
-0->stringToIntegerz*10000000000
-_->stringToIntegerzk1*10^(11-zk2)
-elseletzk1=take3.dropWithFirst(/='\x002E')$zin
-letz0=takeWhile(/='\x002E')zin
-letzk2=lengthzk1in
-letzk3=z0++zk1incasezk2of
-0->stringToIntegerz*10000000000
-_->stringToIntegerzk3*10^(11-zk2)
-|otherwise=
-sum.map(\x->ifx>='\x003A'
-thenifx>='\x004F'
-thencasexof
-'\x004C'->10
-'\x004D'->1
-_->0
-elsecasexof
-'\x003A'->100000
-'\x003B'->10000
-'\x003F'->100
-_->0
-elseifx>='\x002C'
-thencasexof
-'\x002C'->10000000
-'\x002E'->1000000
-_->0
-elsecasexof
-'\x0021'->1000
-'\x0028'->1000000000
-'\x0029'->100000000
-_->0)$xs
-
--- | Function that considers a number of punctuation marks for proper pause creation
--- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
-punctL11::Integer->Integer->String->String->String->[String]->IO()
-punctL11kt1xsyszsargs|k>=10000000000=
-punctL1(letr=fromIntegralk/100000000000inifr>=0.1thenr-0.014else0.086)t1xs
-|DC.isPunctuation.head$xs=
-ifk>=1000200
-thenifk>=10000000
-thenifk>=12000000
-thencasekof
-12000000->punctL10.9t1xs
-100000000->punctL10.5t1xs
-1000000000->punctL10.3t1xs
-_->punctL10.7t1xs
-elsecasekof
-10000000->punctL10.4t1xs
-10000001->punctL10.95t1xs
-10000010->punctL10.95t1xs
-_->punctL10.7t1xs
-elseifk>=2000100
-thencasekof
-2000100->punctL11.0t1xs
-2001000->punctL11.0t1xs
-3000000->punctL10.9t1xs
-_->punctL10.7t1xs
-elsecasekof
-1000200->punctL11.2t1xs
-1001100->punctL11.3t1xs
-1002000->punctL11.2t1xs
-_->punctL10.7t1xs
-elseifk>=1100
-thenifk>=10000
-thencasekof
-10000->punctL10.6t1xs
-100000->punctL10.7t1xs
-1000000->punctL10.8t1xs
-_->punctL10.7t1xs
-elsecasekof
-1100->punctL11.2t1xs
-2000->punctL11.1t1xs
-3000->punctL11.3t1xs
-_->punctL10.7t1xs
-elseifk<=100
-thencasekof
-1->punctL10.85t1xs
-10->punctL10.75t1xs
-100->punctL10.9t1xs
-_->punctL10.7t1xs
-elsecasekof
-200->punctL11.1t1xs
-300->punctL11.3t1xs
-1000->punctL10.9t1xs
-_->punctL10.7t1xs
-|otherwise=
-let(ts,us)=oneToTuple2.filter(/='q')$xsincaseheadargsof
-"1"->createZeroSyllable(0.7,t1,xs,ys,zs,ts,us)
-"2"->createZeroSyllable(0.8,t1,xs,ys,zs,ts,us)
-"3"->createZeroSyllable(0.9,t1,xs,ys,zs,ts,us)
-_->createZeroSyllable(0.65,t1,xs,ys,zs,ts,us)
-
--- | Function that creates Ukrainian syllables and groups them with some parameters to be then processed by the eSpeak and SoX executables
--- Функція, що створює українські склади та групує їх з деякими параметрами, щоб потім вони були оброблені програмами eSpeak і SoX
-createSyllablesReady::(C.ByteString,(MaybeInteger,Integer))->[((String,String),(String,Integer))]
-createSyllablesReadyx=casesnd.snd$xof
-0->zeroSyllablePart.fst$x
-_->createSyllablesMultiLast2(divideToUnits.fst$x)(sndx)
-
--- | Function that creates from a Ukrainian pre-processed ByteString a data of the type (ByteString, (Maybe Integer, Integer)) that takes into account a word emphasis
--- Функція, що створює з попередньо обробленого українського ByteString дані типу (ByteString, (Maybe Integer, Integer)), що враховують наголос у складі
-accountEmphasis::C.ByteString->(C.ByteString,(MaybeInteger,Integer))
-accountEmphasisxs|C.nullxs=(C.empty,(Nothing,0))
-|otherwise=letz=fromIntegral.C.length.C.filterisVowelL$xsincaseC.readIntegerxsof
-Nothing->(xs,(Nothing,z))
-Just(k,ys)->(ys,(Just(k`mod`z),z))
-
--- | Function-predicate that checks whether its argument is either a vowel or a punctuation mark
--- Функція-предикат, яка перевіряє, чи є її аргумент голосним або знаком пунктуації
-isVowelOrPunctuation::Char->Bool
-isVowelOrPunctuationx=DC.isPunctuationx||isVowelEGx
-
--- | Function-predicate to check whether its argument is a Vowel sound letter in Esperanto or Greek respesentation of the group of sounds
--- Функція-предикат, щоб визначити, чи її аргумент є літерою, що позначає голосний у представленні грецькою мовою чи есперанто
-isVowelEG::Char->Bool
-isVowelEGx|x>='\x006F'=
-casexof
-'\x006F'->True
-'\x0075'->True
-_->False
-|otherwise=
-casexof
-'\x0061'->True
-'\x0065'->True
-'\x0069'->True
-_->False
-
--- | Optimized function to take elements of the list after the first occasion of the wrong predicate p excluding the first occurance
--- Оптимізована функція, щоб узяти елементи списку після першої появи хибності у предикаті, виключаючи саму цю першу появу
-dropWithFirst::(a->Bool)->([a]->[a])
-dropWithFirstp=fst.foldrfv
-where
-fx(ys,xs)=(ifpxthenyselsexs,x:xs)
-v=([],[])
-
--- | Function-predicate that checks whether its argument is either a digit character or a dash
--- Функція-предикат, що перевіряє, чи її аргумент є символом цифри чи дефісу
-isDigitOrDash::Char->Bool
-isDigitOrDashx=DC.isDigitx||x=='\x002D'
-
--- | Function-predicate that checks whether its argument is a punctuation mark or a whitespace encoded as ByteString
--- Функція-предикат, яка перевіряє, чи є її аргумент пунктуаційним знаком чи пробілом, закодованим як ByteString
-isPunctOrSpaceB::Char->Bool
-isPunctOrSpaceBx=casexof
-'\x000C'->False
-_->DC.isSpacex||DC.isPunctuationx||(x>='\x00E1'&&x<='\x00F9')
-
--- | Additional function that is used for pause creation into the functions punctL and punctL11
--- Додаткова функція, яка використовується всередині функцій punctL і punctL11 для створення пауз
-punctL1::Double->Integer->String->IO()
-punctL1xt1xs=do
-eS<-endS
-callCommand("sox"++eS++" --multi-threaded -n -r 22.05k -c 1 -b 16 "++showt1++"."++xs++".wav delay "++show(x+0.001)++" trim 0 "++showx)
-
--- | Function that is used to convert single letters to a respective syllables for sounding
--- Функція, що використовується, щоб перетворити окремі літери на відповідні склади для озвучування
-oneToTuple2::String->(String,String)
-oneToTuple2[]=([],[])
-oneToTuple2xs=letx=headxsinifx=='d'
-thenifnull.tail$xs
-then("ed"," trim -0.070")
-elsecasehead.tail$xsof
-'z'->("edz"," trim -0.178")
-'ĵ'->("edĵ"," trim -0.166")
-_->("ed"," trim -0.070")
-elseifnot.DC.isAlpha$x
-then(xs,"")
-elseifx>='p'
-thenifx>='z'
-thenifx>='ĵ'
-thencasexof
-'ĵ'->("eĵ"," trim -0.132")
-'ŝ'->("eŝ"," trim -0.121")
-'γ'->("αγ"," trim -0.117")
-_->([x],"")
-elsecasexof
-'z'->("ez"," trim -0.157")
-'ĉ'->("eĉ"," trim -0.114")
-'ĥ'->("eĥ"," trim -0.118")
-_->([x],"")
-elseifx<='t'
-thenifx>='s'
-thencasexof
-'s'->("es"," trim -0.121")
-'t'->("et"," trim -0.071")
-_->([x],"")
-elsecasexof
-'p'->("ep"," trim -0.103")
-'r'->("er"," trim -0.099")
-_->([x],"")
-elsecasexof
-'u'->("u","")
-'v'->("ev"," trim -0.134")
-'y'->("yy","")
-_->([x],"")
-elseifx<='h'
-thenifx>='f'
-thencasexof
-'f'->("ef"," trim -0.112")
-'g'->("eg"," trim -0.081")
-'h'->("eh"," trim -0.083")
-_->([x],"")
-elseifx<='b'
-thencasexof
-'a'->("a","")
-'b'->("eb"," trim -0.070")
-_->([x],"")
-elsecasexof
-'c'->("ec"," trim -0.115")
-'e'->("e","")
-_->([x],"")
-elseifx<='l'
-thenifx>='k'
-thencasexof
-'k'->("ek"," trim -0.071")
-'l'->("el"," trim -0.105")
-_->([x],"")
-elsecasexof
-'i'->("i","")
-'j'->("ej"," trim -0.133")
-_->([x],"")
-elsecasexof
-'m'->("em"," trim -0.146")
-'n'->("en"," trim -0.136")
-'o'->("o","")
-_->([x],"")
-
--- | Function that is used for zero-syllable creation varied from OS and duration
--- Функція, яка використовується для створення слів без голосних і варіюється в залежності від ОС та тривалості
-createZeroSyllable::(Double,Integer,String,String,String,String,String)->IO()
-createZeroSyllable(v,t1,xs,ys,zs,ts,us)|lastxs=='q'=
-do
-eE<-endE
-eS<-endS
-callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++ts++".wav \""++ts++"\"")
-callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++ts++".wav "++showt1++"."++ts++".wav "++us++" tempo -s "++showv)
-addSoftSign$showt1++"."++ts++".wav"
-|otherwise=
-do
-eE<-endE
-eS<-endS
-callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++xs++".wav \""++ts++"\"")
-callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++xs++".wav "++showt1++"."++xs++".wav "++us++" tempo -s "++showv)
-
--- | Function that takes a Ukrainian String and converts it to the data of the type ((String, String), (String, Integer)) that is used for zero-vowel words
--- Функція, що отримує на вхід український String і конвертує його на дані типу ((String, String), (String, Integer)), що використовується для слів без голосних
-zeroSyllablePart::C.ByteString->[((String,String),(String,Integer))]
-zeroSyllablePartxs|C.allisSimPRecordxs=
-[((C.unpackxs,"esperanto"),("-z",0))]
-|otherwise=
-filter(not.null.fst.fst).concatPunct.map(\x->ifx=="γ"
-then(("γ","greek"),("-z",0))
-elseifx=="y"
-then(("y","polish"),("-z",0))
-else((x,"esperanto"),("-z",0))).convertSyllableToLanguage$xs
-
--- | Function that creates data of the type [((String, String),(String,Integer))] for non-zero-syllable words
--- Функція, що створює дані типу [((String, String),(String,Integer))] для слів з голосними
-createSyllablesMultiLast2::[[String]]->(MaybeInteger,Integer)->[((String,String),(String,Integer))]
-createSyllablesMultiLast2xss(Justy,z)|nullxss=[]
-|otherwise=casezof
-1->caseyof
-0->concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-z",1))
-"y"->(("y","polish"),("-z",0))
-_->((x,"esperanto"),("-z",1))))xss
-_->concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-a 110 -z",1))
-"y"->(("y","polish"),("-a 110 -z",0))
-_->((x,"esperanto"),("-a 110 -z",1))))xss
-_->ify/=0
-thenconcat[concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-z",z))
-"y"->(("y","polish"),("-z",0))
-_->((x,"esperanto"),("-z",z)))).take(fromInteger(y-1))$xss,concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-a 110 -z",z))
-"y"->(("y","polish"),("-a 110 -z",0))
-_->((x,"esperanto"),("-a 110 -z",z))))[head$drop(fromInteger(y-1))xss],concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-z",z))
-"y"->(("y","polish"),("-z",0))
-_->((x,"esperanto"),("-z",z))))$drop(fromIntegery)xss]
-else(concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-z",z))
-"y"->(("y","polish"),("-z",0))
-_->((x,"esperanto"),("-z",z)))).take(fromInteger(z-1))$xss)++concatMap(map(\x->casexof
-"γ"->(("γ","greek"),("-a 110 -z",z))
-"y"->(("y","polish"),("-a 110 -z",0))
-_->((x,"esperanto"),("-a 110 -z",z))))[lastxss]
-createSyllablesMultiLast2xss(Nothing,z)|nullxss=[]
-|otherwise=createSyllablesMultiLast2xss(Just(z-1),z)
-
--- | Additional function for dividing into units for further processing
--- Додаткова функція для поділу на одиниці для подальшої обробки
-divideToUnits::C.ByteString->[[String]]
-divideToUnitsxs|C.nullxs=[]
-|otherwise=mapconvertSyllableToLanguage.createSyllablesMulti$xs
-
--- | Function-predicate that checks whether its argument is a Ukrainian vowel letter
--- Функція-предикат, що перевіряє, чи її аргумент є українською голосною літерою
-isVowelL::Char->Bool
-isVowelLx|x>='\x0065'=
-ifx>='\x0075'
-thencasexof
-'\x0075'->True
-'\x0079'->True
-_->False
-elsecasexof
-'\x0065'->True
-'\x0069'->True
-'\x006F'->True
-_->False
-|otherwise=
-ifx<='\x0047'
-thencasexof
-'\x0044'->True
-'\x0046'->True
-'\x0047'->True
-_->False
-elsecasexof
-'\x004A'->True
-'\x0061'->True
-_->False
-
--- | Optimized function that is applied to the zero-syllable parts to concatenate the punctuation into the one sample of sounding
--- Оптимізована функція, що застосовується до нуль-складових слів, щоб з'єднати пунктуаційні знаки в одну частину озвучування
-concatPunct::[((String,String),(String,Integer))]->[((String,String),(String,Integer))]
-concatPunct=fst.foldrfv
-wherev=([],[])
-fx(ys,xs)|(not.null.fst.fst$x)&&isPunctOrSpace(head.fst.fst$x)=
-([((filter(not.DC.isSpace)(takeWhileisPunctOrSpace.concatMap(fst.fst)$(x:xs)),"esperanto"),("-z",0))],x:xs)
-|otherwise=(x:ys,x:xs)
-
--- | Additional function that is used inside the createSoundsForSyllable function to convert Ukrainian syllables into Esperanto, or Polish, or Greek ones
--- Додаткова функція, що використовується всередині createSoundsForSyllable для конвертування українського складу в склад мовою есперанто, польською чи грецькою
-convertSyllableToLanguage::C.ByteString->[String]
-convertSyllableToLanguagexs|C.nullxs=[]
-|otherwise=
-letchEs=takeWhile(not.null).map(takeWithFirst(/='q')).iterate(dropWithFirst(/='q')).changeToEsperantoinifC.any(\x->(x=='\x0041')||(x=='\x0079'))xs
-thenconcatMap(L.groupByisSpecial).chEs$xs
-elsechEsxs
-
--- | Function to create a list of syllables from the Ukrainian multi-syllable word
--- Функція, що утворює список складів з українського багатоскладового слова
-createSyllablesMulti::C.ByteString->[C.ByteString]
-createSyllablesMultixs=letzss=divideToListOfSoundGroupsAsListsxsin
-map(\y->C.concat.mapfst.concat.take(sndy).drop(fsty)$zss)(listOfFramesxs)
-
--- | Function-predicate to check whether its argument is either a space or a punctuation sign
--- Функція-предикат для перевірки, чи її аргумент є чи пробілом, чи знаком пунктуації
-isPunctOrSpace::Char->Bool
-isPunctOrSpacex=DC.isSpacex||DC.isPunctuationx
-
--- | Optimized function to take elements of the list till the first occasion of the wrong predicate p including the first occurance
--- Оптимізована функція, щоб узяти елементи списку до першої появи хибності у предикаті, включаючи саму цю першу появу
-takeWithFirst::(a->Bool)->([a]->[a])
-takeWithFirstp=fst.foldrfv
-where
-fx(ys,xs)=(ifpxthenx:yselse[x],x:xs)
-v=([],[])
-
--- | Function that actually converts a Ukrainian word written as an encoded ByteString to the Esperanto string for further reading
--- Функція, що власне перетворює українське слово, записане як закодований ByteString, у Esperanto рядок для подальшого озвучування
-changeToEsperanto::C.ByteString->String
-changeToEsperantoxs|C.nullxs=[]
-|otherwise=changeToDecoded.C.unpack.verbSpecialConv$xs
-
--- | Function that is used to convert "ться" into the wright letter combination in Esperanto
--- Функція, що використовується для перетворення "ться" на правильну комбінацію літер есперанто
-verbSpecialConv::C.ByteString->C.ByteString
-verbSpecialConvxs|C.nullxs=C.empty
-|C.null.C.tail$xs=xs
-|not.C.null.C.tail.C.tail$xs=if(C.headxs=='\x0013')&&((C.head.C.tail$xs)=='\x0013')&&((C.head.C.tail.C.tail$xs)=='\x0061')
-then'c'`C.cons`'s'`C.cons`'j'`C.cons`'a'`C.cons`verbSpecialConv(C.drop3xs)
-elseC.headxs`C.cons`verbSpecialConv(C.tailxs)
-|otherwise=C.headxs`C.cons`verbSpecialConv(C.tailxs)
-
--- | Function-predicate to group only not special letters
--- Функція-предикат для групування лише не спеціальних літер
-isSpecial::Char->Char->Bool
-isSpecialxy=continueLangx&&continueLangy
-
--- | Intermediate function for creating a Ukrainian syllables
--- Проміжна функція для створення українських складів
-divideToListOfSoundGroupsAsLists::C.ByteString->[[(C.ByteString,Char)]]
-divideToListOfSoundGroupsAsListsxs=concatMapdivideConsonants(takeWhile(not.null)$prepareToSyllablesxs)
-
--- | Function to create a list of frames for producing syllables in multi-syllable word
--- Функція, щоб створити список обмежень для генерування складів у багатоскладовому слові
-listOfFrames::C.ByteString->[(Int,Int)]
-listOfFramesxs=letys=listOfPointsxsinzip(0:ys)(zipWith(-)ys(0:ys))
-
--- | Function that is used for decoding of the String
--- Функція, яка використовується для декодування String
-changeToDecoded::String->String
-changeToDecoded(y:ys)|nullys=
-ify>='\x0063'
-thenify>='\x0074'
-thenify>='\x00A8'
-thenify>='\x00FC'
-thenify>='\x00FE'
-thencaseyof
-'\x00FE'->"\x20A4"
-'\x00FF'->"\x20B4"
-_->[y]
-elsecaseyof
-'\x00FC'->"\x20A2"
-'\x00FD'->"\x20A3"
-_->[y]
-elseify<='\x00B5'
-thencaseyof
-'\x00A8'->"\x2122"
-'\x00B5'->"\x20AC"
-_->[y]
-elsecaseyof
-'\x00FA'->"\x20A0"
-'\x00FB'->"\x20A1"
-_->[y]
-elseify<='\x0078'
-thenify>='\x0077'
-thencaseyof
-'\x0077'->"dĵ"
-'\x0078'->"vq"
-_->[y]
-elsecaseyof
-'\x0074'->"t"
-'\x0075'->"u"
-'\x0076'->"v"
-_->[y]
-elseify<='\x007A'
-thencaseyof
-'\x0079'->"y"
-'\x007A'->"z"
-_->[y]
-elsecaseyof
-'\x00A2'->"\x2109"
-'\x00A5'->"\x2103"
-_->[y]
-elseify<='\x006B'
-thenify>='\x0068'
-thenify>='\x006A'
-thencaseyof
-'\x006A'->"j"
-'\x006B'->"k"
-_->[y]
-elsecaseyof
-'\x0068'->"h"
-'\x0069'->"i"
-_->[y]
-elseify<='\x0065'
-thencaseyof
-'\x0063'->"c"
-'\x0064'->"d"
-'\x0065'->"e"
-_->[y]
-elsecaseyof
-'\x0066'->"f"
-'\x0067'->"g"
-_->[y]
-elseify<='\x006F'
-thenify>='\x006E'
-thencaseyof
-'\x006E'->"n"
-'\x006F'->"o"
-_->[y]
-elsecaseyof
-'\x006C'->"l"
-'\x006D'->"m"
-_->[y]
-elseify<='\x0071'
-thencaseyof
-'\x0070'->"p"
-'\x0071'->""
-_->[y]
-elsecaseyof
-'\x0072'->"r"
-'\x0073'->"s"
-_->[y]
-elseify<='\x0049'
-thenify>='\x0016'
-thenify>='\x0045'
-thenify>='\x0047'
-thencaseyof
-'\x0047'->"ja"
-'\x0049'->"ĉ"
-_->[y]
-elsecaseyof
-'\x0045'->"ĵ"
-'\x0046'->"je"
-_->[y]
-elseify<='\x0042'
-thencaseyof
-'\x0016'->"ŝĉq"
-'\x0041'->"γ"
-'\x0042'->"ŝ"
-_->[y]
-elsecaseyof
-'\x0043'->"ŝĉ"
-'\x0044'->"ji"
-_->[y]
-elseify<='\x0011'
-thenify>='\x0010'
-thencaseyof
-'\x0010'->"tq"
-'\x0011'->"fq"
-_->[y]
-elsecaseyof
-'\x0007'->"rq"
-'\x000C'->"sq"
-_->[y]
-elseify<='\x0013'
-thencaseyof
-'\x0012'->"hq"
-'\x0013'->"cq"
-_->[y]
-elsecaseyof
-'\x0014'->"ĉq"
-'\x0015'->"ŝq"
-_->[y]
-elseify<='\x0055'
-thenify>='\x0052'
-thenify>='\x0054'
-thencaseyof
-'\x0054'->"ĵ"
-'\x0055'->"zq"
-_->[y]
-elsecaseyof
-'\x0052'->"gq"
-'\x0053'->"dq"
-_->[y]
-elseify<='\x004F'
-thenify>='\x004D'
-thencaseyof
-'\x004D'->"\x2014"
-'\x004E'->"..."
-'\x004F'->"dz"
-_->[y]
-elsecaseyof
-'\x004A'->"ju"
-'\x004B'->""
-'\x004C'->"\x2013"
-_->[y]
-elsecaseyof
-'\x0050'->"dĵq"
-'\x0051'->"dzq"
-_->[y]
-elseify<='\x0059'
-thenify>='\x0058'
-thencaseyof
-'\x0058'->"mq"
-'\x0059'->"nq"
-_->[y]
-elsecaseyof
-'\x0056'->"kq"
-'\x0057'->"lq"
-_->[y]
-elseify<='\x005E'
-thencaseyof
-'\x005A'->"pq"
-'\x005E'->"bq"
-_->[y]
-elsecaseyof
-'\x0061'->"a"
-'\x0062'->"b"
-_->[y]
-|otherwise=
-letzyzs=ifheadzs`notElem`"aojue"
-then'q'
-else'j'in
-ify>='\x0063'
-thenify>='\x0074'
-thenify>='\x00A8'
-thenify>='\x00FC'
-thenify>='\x00FE'
-thencaseyof
-'\x00FE'->'\x20A4':changeToDecodedys
-'\x00FF'->'\x20B4':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x00FC'->'\x20A2':changeToDecodedys
-'\x00FD'->'\x20A3':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x00B5'
-thencaseyof
-'\x00A8'->'\x2122':changeToDecodedys
-'\x00B5'->'\x20AC':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x00FA'->'\x20A0':changeToDecodedys
-'\x00FB'->'\x20A1':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0078'
-thenify>='\x0077'
-thencaseyof
-'\x0077'->'d':'ĵ':changeToDecodedys
-'\x0078'->'v':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0074'->'t':changeToDecodedys
-'\x0075'->'u':changeToDecodedys
-'\x0076'->'v':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x007A'
-thencaseyof
-'\x0079'->'y':changeToDecodedys
-'\x007A'->'z':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x00A2'->'\x2109':changeToDecodedys
-'\x00A5'->'\x2103':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x006B'
-thenify>='\x0068'
-thenify>='\x006A'
-thencaseyof
-'\x006A'->'j':changeToDecodedys
-'\x006B'->'k':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0068'->'h':changeToDecodedys
-'\x0069'->'i':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0065'
-thencaseyof
-'\x0063'->'c':changeToDecodedys
-'\x0064'->'d':changeToDecodedys
-'\x0065'->'e':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0066'->'f':changeToDecodedys
-'\x0067'->'g':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x006F'
-thenify>='\x006E'
-thencaseyof
-'\x006E'->'n':changeToDecodedys
-'\x006F'->'o':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x006C'->'l':changeToDecodedys
-'\x006D'->'m':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0071'
-thencaseyof
-'\x0070'->'p':changeToDecodedys
-'\x0071'->changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0072'->'r':changeToDecodedys
-'\x0073'->'s':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0049'
-thenify>='\x0016'
-thenify>='\x0045'
-thenify>='\x0047'
-thencaseyof
-'\x0047'->'j':'a':changeToDecodedys
-'\x0049'->'ĉ':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0045'->'ĵ':changeToDecodedys
-'\x0046'->'j':'e':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0042'
-thencaseyof
-'\x0016'->'ŝ':'ĉ':zyys:changeToDecodedys
-'\x0041'->'γ':changeToDecodedys
-'\x0042'->'ŝ':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0043'->'ŝ':'ĉ':changeToDecodedys
-'\x0044'->'j':'i':changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0011'
-thenify>='\x0010'
-thencaseyof
-'\x0010'->'t':zyys:changeToDecodedys
-'\x0011'->'f':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0007'->'r':zyys:changeToDecodedys
-'\x000C'->'s':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0013'
-thencaseyof
-'\x0012'->'h':zyys:changeToDecodedys
-'\x0013'->'c':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0014'->'ĉ':zyys:changeToDecodedys
-'\x0015'->'ŝ':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0055'
-thenify>='\x0052'
-thenify>='\x0054'
-thencaseyof
-'\x0054'->'ĵ':changeToDecodedys
-'\x0055'->'z':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0052'->'g':zyys:changeToDecodedys
-'\x0053'->'d':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x004F'
-thencaseyof
-'\x004A'->'j':'u':changeToDecodedys
-'\x004B'->changeToDecodedys
-'\x004F'->'d':'z':changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0050'->'d':'ĵ':zyys:changeToDecodedys
-'\x0051'->'d':'z':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x0059'
-thenify>='\x0058'
-thencaseyof
-'\x0058'->'m':zyys:changeToDecodedys
-'\x0059'->'n':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0056'->'k':zyys:changeToDecodedys
-'\x0057'->'l':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elseify<='\x005E'
-thencaseyof
-'\x005A'->'p':zyys:changeToDecodedys
-'\x005E'->'b':zyys:changeToDecodedys
-_->y:changeToDecodedys
-elsecaseyof
-'\x0061'->'a':changeToDecodedys
-'\x0062'->'b':changeToDecodedys
-_->y:changeToDecodedys
-changeToDecoded_=[]
-
--- | Additional function-predicate to check if its argument is a sound that converts to another language than the default Esperanto one
--- Додаткова функція-предикат, щоб перевірити, чи її аргумент є звуком, що конверується до іншої мови, ніж звичайна есперанто
-continueLang::Char->Bool
-continueLangx=casexof
-'y'->False
-'γ'->False
-_->True
-
--- | Function that divides a list of data of the type (String, Char) representing the Ukrainian consonants into two groups for further syllable constuction
--- Функція, що ділить список даних типу (String, Char), що представляють українські приголосні, на дві групи для подальшого конструювання складів
-divideConsonants::[(C.ByteString,Char)]->[[(C.ByteString,Char)]]
-divideConsonantsxs=lety=lengthxsincaseyof
-1->[xs]
-2|(elem(snd.head$xs)"rq"&&headxs/=lastxs)||(elem(snd.head$xs)"di"&&elem(snd.head.tail$xs)"sa")->[[headxs],tailxs]
-|otherwise->[xs]
-3|elem(snd.head$xs)"rq"->[[headxs],tailxs]
-|elem(snd.head.tail$xs)"rq"->[[headxs,head.tail$xs],[lastxs]]
-|otherwise->[xs]
-_|elem(snd.head$xs)"rqdi"->[[headxs],tailxs]
-|otherwise->[xs]
-
--- | Function that prepares a Ukrainian word to be divided into syllables
--- Функція, що готує українське слово для поділу на склади
-prepareToSyllables::C.ByteString->[[(C.ByteString,Char)]]
-prepareToSyllablesxs=mapcreateSoundL(createSoundGroupsxs)
-
--- | Additional list of the amount of parts to be taken to create syllables
--- Додаткова список кількостей частин, які потрібно узяти, щоб створити склади
-listOfPoints::C.ByteString->[Int]
-listOfPointsxs=letcountSoundGroups=length.divideToListOfSoundGroupsAsLists$xsin
-letw1=fromIntegral.C.length.C.filterisVowelL$xsintakew1.map(amountOfPartsForKthSylxs)$[1..countSoundGroups]
-
--- | Additional function that is used to divide a Ukrainian word into syllables, it creates a list of data of the type (String, Char)
--- Додаткова функція, що використовується для поділу українського слова на склади, створює список даних типу (String, Char)
-createSoundL::C.ByteString->[(C.ByteString,Char)]
-createSoundLxs|C.nullxs=[]
-|otherwise=(createSoundLChar.C.head$xs):(createSoundL.C.tail$xs)
-
--- | Additional function that is used to divide a Ukrainian word into syllables
--- Додаткова функція, що використовується, щоб поділити українське слово на склади
-createSoundGroups::C.ByteString->[C.ByteString]
-createSoundGroups=C.groupByisSimilar
-
--- | Additional function to find out the amount of parts to be taken for the k-th syllable
--- Додаткова функція, щоб визначити, яку кількість частин потрібно взяти для k-го складу
-amountOfPartsForKthSyl::C.ByteString->Int->Int
-amountOfPartsForKthSylxsk=letu=length.divideToListOfSoundGroupsAsLists$xsinletw=mapLSxs[1..u]inlett=length.takeWhile(==k).dropWhile(<k)$win
-letw2=toInteger.C.length.C.filterisVowelL$xsinifw2==1
-thenu
--- Multisyllable word
-elsecasetof
-3->iftoIntegerk<w2
--- There is a next vowel in the word
-then(length.takeWhile(<=k)$w)-1
-elseu
-2->iftoIntegerk<w2
--- There is a next vowel in the word
-then(length.takeWhile(<=k)$w)-1
-elseu
-_->iftoIntegerk<w2
-thenlength.takeWhile(<=k)$w
-elseu
-
--- | Function that converts encoded Char into a tuple (ByteString, Char) for further usage in syllable segmentation
--- Функція, що конвертує кодований символ у кортеж (ByteString, Char) для подальшого використання у поділі на склади
-createSoundLChar::Char->(C.ByteString,Char)
-createSoundLCharx=(C.singletonx,y)
-wherey|isVowelLx='w'
-|or[x=='\x0076',x=='\x006A',x>='\x006C'&&x<='\x006E',x=='\x0072']='r'
-|or[x=='\x0078',x>='\x0057'&&x<='\x0059',x=='\x0007']='q'
-|or[x=='\x0041',x=='\x0045',x=='\x004F',x>='\x0062'&&x<='\x0067',x=='\x0077',x=='\x007A']='d'
-|or[x=='\x0013',x>='\x0050'&&x<='\x0055',x=='\x005E']='i'
-|or[x>='\x0042'&&x<='\x0043',x=='\x0049',x=='\x0066',x=='\x0068',x=='\x006B',x=='\x0070',x>='\x0073'&&x<='\x0074']='s'
-|or[x=='\x000C',x>='\x0010'&&x<='\x0012',x>='\x0014'&&x<='\x0016',x=='\x0056',x=='\x005A']='a'
-|otherwise='0'
-
--- | Function that checks whether its arguments are both consonants
--- Функція, що перевіряє, чи є обидва її аргументи приголосні
-isSimilar::Char->Char->Bool
-isSimilarxy=isConsonantLx&&isConsonantLy
-
--- | Function-predicate to check whether its argument is a consonant
--- Функція-предикат, яка перевіряє, чи є її аргумент приголосним
-isConsonantL::Char->Bool
-isConsonantLx|x<='\x005E'=
-ifx<='\x0043'
-thenor[x>='\x0010'&&x<='\x0016',x>='\x0041'&&x<='\x0043',x=='\x0007',x=='\x000C']
-elseor[x>='\x004F'&&x<='\x005A',x=='\x005E',x=='\x0045',x=='\x0049']
-|otherwise=
-ifx>='\x0070'
-thenor[x>='\x0070'&&x<='\x0074',x>='\x0076'&&x<='\x0078',x=='\x007A']
-elseor[x>='\x0062'&&x<='\x0064',x>='\x0066'&&x<='\x0068',x>='\x006B'&&x<='\x006E']
-
--- | Function to create a list of Int that is used for dividing into syllables for words with one or more vowels
--- Функція, щоб створити список Int, який використовується для поділу на склади для слів з одним чи більше голосним
-mapLS::C.ByteString->[Int]->[Int]
-mapLSxsks=letzss=divideToListOfSoundGroupsAsListsxsinmap(\x->sum1(map((=='w').snd)$concat$takexzss)$!0)ks
-wheresum1ysaccum|not.null$ys=ifheadysthensum1(tailys)$!(accum+1)elsesum1(tailys)accum
-|otherwise=accum
-
\ No newline at end of file
+-- | Function-predicate used for filtering and indicating that a Char '\x000C' has not space semantics after encoding to ByteString
+-- Функція-предикат, яка використовується для фільтрування та вказівки на те, що символ '\x000C' має не семантику пробільного символу після кодування в ByteString
+isSpecialNonSpace::Char->Bool
+isSpecialNonSpacex=casexof
+'\x000C'->True
+_->not.DC.isSpace$x
+
+-- | Function that is used to create punctuation pauses
+-- Функція, що використовується для створення пунктуаційних пауз
+punctuationPauseLength::Integer->String->String->String->[String]->IO()
+punctuationPauseLengtht1xs=punctL(punctOptxs)t1xs
+
+-- | Function that is used to create punctuation pauses if args include "1", or "2", or "3"
+-- Функція, що використовується для створення пунктуаційних пауз, якщо args включають "1", або "2", або "3"
+punctuationPauseLength1::Integer->String->String->String->[String]->IO()
+punctuationPauseLength1t1xs=punctL11(punctOptxs)t1xs
+
+-- | Function that checks the eSpeak and SoX executables existence and is used for soft sign sound appending to the syllable or word
+-- Функція, що перевіряє існування eSpeak і SoX додатків у системі та використовується для додавання м'якого знаку до кінцевого приголосного у слові чи складі
+addSoftSign::FilePath->IO()
+addSoftSignfile=
+do
+eS<-endS
+callCommand$"sox"++eS++" --multi-threaded "++file++" m."++file++" trim 0 -0.01"
+callCommand$"sox"++eS++" --multi-threaded m."++file++" j.wav "++file
+
+-- | Function that divides wrongly sounding syllables for abbeviations of esperanto months into parts
+-- Функція, яка ділить неправильно озвучувані склади для абревіатур назв місяців мовою есперанто на дві частини
+hDivideMonths2::((String,String),(String,Integer))->[((String,String),(String,Integer))]
+hDivideMonths2((xs,ys),(zs,k))=lety=headxsinify>='j'
+thenify`elem`"jmos"
+thenify=='j'
+thencasexsof
+"jan"->[(("ja",ys),(zs,k)),(("n",ys),(zs,0))]
+"jul"->[(("ju",ys),(zs,k)),(("l",ys),(zs,0))]
+"jun"->[(("ju",ys),(zs,k)),(("n",ys),(zs,0))]
+_->[((xs,ys),(zs,k))]
+elseifxs>="okt"
+thencasexsof
+"okt"->[(("ok",ys),(zs,k)),(("t",ys),(zs,0))]
+"sept"->[(("sep",ys),(zs,k)),(("t",ys),(zs,0))]
+_->[((xs,ys),(zs,k))]
+elsecasexsof
+"maj"->[(("ma",ys),(zs,k)),(("j",ys),(zs,0))]
+"mar"->[(("ma",ys),(zs,k)),(("r",ys),(zs,0))]
+_->[((xs,ys),(zs,k))]
+else[((xs,ys),(zs,k))]
+elseify`elem`"adf"
+thencasexsof
+"apr"->[(("ap",ys),(zs,k)),(("r",ys),(zs,0))]
+"dec"->[(("de",ys),(zs,k)),(("c",ys),(zs,0))]
+"feb"->[(("fe",ys),(zs,k)),(("b",ys),(zs,0))]
+_->[((xs,ys),(zs,k))]
+else[((xs,ys),(zs,k))]
+
+-- | Function that concatenates alone soft sign with the previous letter (Esperanto or Greek)
+-- Функція, яка з'єднує ізольований м'який знак з попереднім приголосним (есперанто чи грецькою)
+concatSoftSign::[((String,String),(String,Integer))]->[((String,String),(String,Integer))]
+concatSoftSign(x:xs)=ifnullxs
+then[x]
+elsecasefst.fst.head$xsof
+"q"|(fst.fst$x)=="γ"->x:concatSoftSign(tailxs)
+|otherwise->(((fst.fst$x)++"q","esperanto"),sndx):concatSoftSign(tailxs)
+_->x:concatSoftSignxs
+concatSoftSign[]=[]
+
+-- | Function that converts zero-syllable groups of consonant sounds into separate sounds for further processing
+-- Функція, що перетворює безголосні групи приголосних у окремі звуки для подальшої обробки
+hFunctionH::((String,String),(String,Integer))->[((String,String),(String,Integer))]
+hFunctionH(([x,y],ys),(zs,_))|x=='d'=caseyof
+'z'->[(("dz",ys),(zs,0))]
+'ĵ'->[(("dĵ",ys),(zs,0))]
+_->[(("d",ys),(zs,0)),(([y],ys),(zs,0))]
+|otherwise=[(([x],ys),(zs,0)),(([y],ys),(zs,0))]
+hFunctionH((u:t:ts,ys),(zs,_))|u=='d'=casetof
+'z'->(("dz",ys),(zs,0)):hFunctionH((ts,ys),(zs,0))
+'ĵ'->(("dĵ",ys),(zs,0)):hFunctionH((ts,ys),(zs,0))
+_->(("d",ys),(zs,0)):hFunctionH((t:ts,ys),(zs,0))
+|otherwise=(([u],ys),(zs,0)):hFunctionH((t:ts,ys),(zs,0))
+hFunctionH(([x],ys),(zs,_))=[(([x],ys),(zs,0))]
+hFunctionH(([],_),(_,_))=[]
+
+-- | Function that combines the emphasis and dividing into sound groups into languages
+-- Функція, що поєднує наголос і поділ на групи звуків для мов
+combineSoundsLs::C.ByteString->[((String,String),(String,Integer))]
+combineSoundsLsxs|C.nullxs=[]
+|otherwise=createSyllablesReady.accountEmphasis$xs
+
+-- | Function that applies additional function h to a if p is True on a
+-- Функція, що застосовує додаткову функцію h до a, якщо p є Істина на a
+bGroups::(a->Bool)->(a->[a])->[a]->[a]
+bGroupsph=concatMap(\x->ifpxthenhxelse[x])
+
+-- | Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer))
+-- Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer))
+pFunctionP::((String,String),(String,Integer))->Bool
+pFunctionP((xs,_),(_,_))=((not.anyisVowelOrPunctuation$xs)||((length.takeWhile(not.isVowelEG)$xs)>3)||((length.dropWithFirstisVowelEG$xs)>3))&&(not.anyDC.isPunctuation$xs)
+
+-- | Function-predicate that checks whether the hFunctionH must be applied to the ((String, String), (String, Integer)) for args containing -W or W
+-- Функція-предикат, яка перевіряє, чи має бути застосована hFunctionH до ((String, String), (String, Integer)) для args, які містять -W або W
+pFunctionP0::((String,String),(String,Integer))->Bool
+pFunctionP0((xs,_),(_,_))=not.anyDC.isPunctuation$xs
+
+-- | Additional function to take into account assimilation rules that depend on the position in the word of the group of Ukrainian sounds
+-- Додаткова функція, щоб врахувати правила асиміляції, які залежать від положення у слові групи українських звуків
+assimilationFirst::[C.ByteString]->[C.ByteString]
+assimilationFirst[]=[]
+assimilationFirstxs=map(\x->letz=C.dropWhileisDigitOrDashxinifC.nullz
+thenC.takeWhileisDigitOrDashx
+elsecaseC.headzof
+'\x007A'->ifC.null.C.tail$z
+thenx
+elsecaseC.head.C.tail$zof
+'\x0049'->C.concat[C.takeWhileisDigitOrDashx,'\x0042'`C.cons`C.singleton'\x0049',C.drop2z]
+'\x0042'->C.concat[C.takeWhileisDigitOrDashx,'\x0042'`C.cons`C.singleton'\x0042',C.drop2z]
+_->x
+_->x)xs
+
+-- | Function that separates punctuation from the words for further processing
+-- Функція, що відділяє пунктуацію від слів для подальшої обробки
+separatePunct::C.ByteString->[C.ByteString]
+separatePunctxs|C.nullxs=[C.empty]
+|(not.C.null.C.tail$xs)&&C.headxs=='!'=letz2=C.span(\x->isPunctOrSpaceBx||DC.isDigitx)xsinC.singleton' ':fstz2:separatePunct(sndz2)
+|isPunctOrSpaceB.C.head$xs=letz=C.spanisPunctOrSpaceBxsinC.singleton' ':fstz:separatePunct(sndz)
+|otherwise=letzN=C.span(not.isPunctOrSpaceB)xsinfstzN:separatePunct(sndzN)
+
+-- | Additional function to check whether its argument takes into account that soft sign is considered as a part of a consonant
+-- Додаткова функція, яка перевіряє, чи її аргумент бере до уваги, що м'який знак вважається частиною приголосного
+softAssociate::C.ByteString->C.ByteString
+softAssociatexs|C.nullxs=
+C.empty
+|C.null.C.tail$xs=
+C.singletonz
+|y=='\x0071'=
+ifz>='\x006B'
+thenifz>='\x0073'
+thenifz>='\x0077'
+thencasezof
+'\x0077'->'\x0050'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x007A'->'\x0055'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elsecasezof
+'\x0073'->'\x000C'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0074'->'\x0010'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0076'->'\x0078'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elseifz<='\x006D'
+thencasezof
+'\x006B'->'\x0056'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x006C'->'\x0057'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x006D'->'\x0058'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elsecasezof
+'\x006E'->'\x0059'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0070'->'\x005A'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0072'->'\x0007'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elseifz<='\x004F'
+thenifz>='\x0049'
+thencasezof
+'\x0049'->'\x0014'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x004F'->'\x0051'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elsecasezof
+'\x0042'->'\x0015'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0043'->'\x0016'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0045'->'\x0054'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elseifz<='\x0064'
+thencasezof
+'\x0062'->'\x005E'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0063'->'\x0013'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0064'->'\x0053'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+elsecasezof
+'\x0066'->'\x0011'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0067'->'\x0052'`C.cons`softAssociate(C.tail.C.tail$xs)
+'\x0068'->'\x0012'`C.cons`softAssociate(C.tail.C.tail$xs)
+_->z`C.cons`softAssociate(C.tail.C.tail$xs)
+|otherwise=z`C.cons`y`C.cons`softAssociate(C.tail.C.tail$xs)
+wherez=C.headxs
+y=C.head.C.tail$xs
+
+-- | Function that applies assimilation rules to the Ukrainian preprocessed string
+-- Функція, яка застосовує правила асиміляції до українського попередньо обробленого рядка
+ukrainianLast2::C.ByteString->C.ByteString
+ukrainianLast2=fst.C.foldrfv
+wherev=(C.empty,C.empty)
+fx(zs,xs)=casexof
+'\x0045'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
+(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
+then('\x0055'`C.cons`zs,x`C.cons`xs)
+else('\x0045'`C.cons`zs,x`C.cons`xs)
+'\x0042'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
+(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
+then('\x000C'`C.cons`zs,x`C.cons`xs)
+else('\x0042'`C.cons`zs,x`C.cons`xs)
+'\x0049'->ifand[not.C.null$xs,not.C.null.C.tail$xs,C.headxs=='\x0073'||C.headxs=='\x0063'||C.headxs=='\x0013',
+(C.head.C.tail$xs)=='\x0071'||(C.head.C.tail$xs)=='\x0069']
+then('\x0013'`C.cons`zs,x`C.cons`xs)
+else('\x0049'`C.cons`zs,x`C.cons`xs)
+_->letys=C.dropWhile(not.isFilteredForLast2)xsinifx<'\x0074'
+thencasexof
+'\x0064'|(not.C.null$ys)&&elem(C.headys)"\x0073\x007A\x0063"->
+('\x0064'`C.cons`'\x007A'`C.cons`zs,x`C.cons`xs)
+|(not.C.null$ys)&&elem(C.headys)"\x0045\x0042\x0049"->
+('\x0064'`C.cons`'\x0045'`C.cons`zs,x`C.cons`xs)
+|otherwise->('\x0064'`C.cons`zs,x`C.cons`xs)
+'\x0073'|(not.C.null$ys)&&(C.headys=='\x0042')->
+('\x0042'`C.cons`zs,x`C.cons`xs)
+|otherwise->('\x0073'`C.cons`zs,x`C.cons`xs)
+_->(x`C.cons`zs,x`C.cons`xs)
+elsecasexof
+'\x0074'|(not.C.null$ys)&&(C.headys=='\x0063')->
+('\x0063'`C.cons`zs,x`C.cons`xs)
+|(not.C.null$ys)&&elem(C.headys)"\x0042\x0049"->
+('\x0049'`C.cons`zs,x`C.cons`xs)
+|otherwise->('\x0074'`C.cons`zs,x`C.cons`xs)
+'\x007A'|(not.C.null$ys)&&elem(C.headys)"\x0042\x0045\x0049"->
+('\x0045'`C.cons`zs,x`C.cons`xs)
+|(not.C.null$ys)&&(C.headys=='\x0064')&&
+(not.C.null.C.tail$ys)&&((C.head.C.tail$ys)=='\x0045')->
+('\x0045'`C.cons`zs,x`C.cons`xs)
+|otherwise->('\x007A'`C.cons`zs,x`C.cons`xs)
+_->(x`C.cons`zs,x`C.cons`xs)
+
+-- | Function-predicate that is used to eliminate the quantity of ukrainianLast2 applications
+-- Функція-предикат, яка використовується для зменшення кількості застосувань функції ukrainianLast2
+isFilteredForLast2::Char->Bool
+isFilteredForLast2z|z<='\x005A'=
+ifz<='\x0016'
+thenz>='\x0010'||(z=='\x0007'||z=='\x000C')
+elsez>='\x0041'&&z/='\x0048'
+|z<='\x00F9'=
+ifz<='\x007A'
+thenz>='\x0061'||z=='\x005E'
+elsez>='\x00E1'&&z<='\x00F9'
+|otherwise=DC.isPunctuationz
+
+-- | Function to convert Ukrainian "я", "ю", "є" and "ї" into some other String for syllables processing
+-- Функція для перетворення українських "я", "ю", "є" та "ї" на деякі інші рядки для обробки складів
+ukrainianJottedLast::C.ByteString->C.ByteString
+ukrainianJottedLastxs|C.nullxs=
+C.empty
+|otherwise=
+caseC.headxsof
+'\x0047'->'\x0071'`C.cons`'\x0061'`C.cons`ukrainianJottedLast(C.tailxs)
+'\x004A'->'\x0071'`C.cons`'\x0075'`C.cons`ukrainianJottedLast(C.tailxs)
+'\x0046'->'\x0071'`C.cons`'\x0065'`C.cons`ukrainianJottedLast(C.tailxs)
+'\x0044'->'\x006A'`C.cons`'\x0069'`C.cons`ukrainianJottedLast(C.tailxs)
+'\x0074'->ifC.null.C.tail$xs
+thenC.singleton'\x0074'
+elsecaseC.head.C.tail$xsof
+'\x0073'->'\x0063'`C.cons`ukrainianJottedLast(C.tail.C.tail$xs)
+_->'\x0074'`C.cons`ukrainianJottedLast(C.tailxs)
+_->C.headxs`C.cons`ukrainianJottedLast(C.tailxs)
+
+-- | Optimized function to convert Ukrainian "я", "ю", "є" and "ї" into some other String for syllables processing
+-- Оптимізована функція для перетворення українських "я", "ю", "є" та "ї" на деякі інші рядки для обробки складів
+ukrainianJotted1::C.ByteString->C.ByteString
+ukrainianJotted1=fst.C.foldrfv
+wherev=(C.empty,C.empty)
+fx(ys,xs)|C.nullxs=
+(C.singletonx,x`C.cons`xs)
+|otherwise=
+ifk=='\x0044'
+then(x`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`C.tailys,x`C.cons`xs)
+elseifk=='\x0047'||k=='\x0046'||k=='\x004A'
+thenifx>='\x0030'&&x<='\x0039'
+then(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elseifx>='\x004B'
+thenifx>='\x006F'
+thencasexof
+'\x006F'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0075'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0079'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elseifx<='\x0061'
+thencasexof
+'\x004B'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0061'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elsecasexof
+'\x0065'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0069'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elseifx<='\x0044'
+thenifx>='\x002D'
+thencasexof
+'\x002D'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0044'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elsecasexof
+'\x0020'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0027'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+elsecasexof
+'\x0046'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x0047'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+'\x004A'->(x`C.cons`'\x006A'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+_->(x`C.cons`'\x0071'`C.cons`jCk`C.cons`C.tailys,x`C.cons`xs)
+else(x`C.cons`ys,x`C.cons`xs)
+wherek=C.headxs
+jCy|y=='\x0047'='\x0061'
+|y=='\x004A'='\x0075'
+|y=='\x0046'='\x0065'
+|otherwise=y
+
+-- | Function that makes some assimilation changes for correct Ukrainian pronunciation
+-- Функція, що робить деякі асиміляційні зміни для правильної української вимови
+changeAssimilative::C.ByteString->C.ByteString
+changeAssimilativexs|C.nullxs=C.empty
+|C.headxs=='\x006E'=
+ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0074'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0073'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x0074'->'\x006E'`C.cons`'\x0073'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`'\x0063'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+'\x000C'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x006B'->'\x0059'`C.cons`'\x000C'`C.cons`'\x0068'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`'\x0013'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
+_->'\x006E'`C.cons`changeAssimilative(C.tailxs)
+|C.headxs=='\x0073'=
+ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0074'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x000C'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x006B'->'\x000C'`C.cons`'\x000C'`C.cons`'\x006B'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0073'`C.cons`'\x0074'`C.cons`'\x000C'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+'\x0013'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+else'\x000C'`C.cons`'\x0013'`C.cons`'\x0013'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+'\x0049'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+else'\x0042'`C.cons`'\x0049'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+'\x0064'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+else'\x007A'`C.cons`'\x0064'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+'\x0073'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+else'\x0073'`C.cons`'\x0073'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+_->'\x0073'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
+_->'\x0073'`C.cons`changeAssimilative(C.tailxs)
+|C.headxs=='\x0047'=
+ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0074'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0064'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x0065'->ifC.null.C.tail.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail.C.tail$xsof
+'\x0073'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
+'\x0047'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
+'\x0074'->'\x006A'`C.cons`'\x0061'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x000C'`C.cons`'\x0061'`C.cons`'\x0074'`C.cons`
+changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x0073'`C.cons`'\x0047'`C.cons`
+changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`'\x0073'`C.cons`
+changeAssimilative(C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`'\x0065'`C.cons`changeAssimilative(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0047'`C.cons`'\x0074'`C.cons`'\x0064'`C.cons`changeAssimilative(C.tail.C.tail.C.tail$xs)
+_->'\x0047'`C.cons`'\x0074'`C.cons`changeAssimilative(C.tail.C.tail$xs)
+_->'\x0047'`C.cons`changeAssimilative(C.tailxs)
+|otherwise=C.headxs`C.cons`changeAssimilative(C.tailxs)
+
+-- | Function that separates punctuation marks from the words
+-- Функція, яка відділяє пунктуаційні знаки від слів
+separatePunct0::C.ByteString->C.ByteString
+separatePunct0=C.foldrfv
+wherev=C.empty
+fxys|DC.isPunctuationx||(x>='\x00E1'&&x<='\x00F9')||(x>='\x0030'&&x<='\x0039')=' '`C.cons`x`C.cons`' '`C.cons`ys
+|otherwise=x`C.cons`ys
+
+-- | Function that primarily converts Ukrainian line into more sounds-based line and more oriented to more using prosodical information
+-- Функція, що початково перетворює український рядок на більш орінтований на звуки рядок і більш орієнтований на використання просодійної інформації
+ukrainianToMoreSounding::C.ByteString->C.ByteString
+ukrainianToMoreSoundingxs=ifC.nullxs
+thenC.empty
+elseletfys=ifnot.C.null.C.tail$ys
+thencaseC.head.C.tail$ysof
+'\x0047'->C.headys`C.cons`'\x006A'`C.cons`'\x0061'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
+'\x004A'->C.headys`C.cons`'\x006A'`C.cons`'\x0075'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
+'\x0046'->C.headys`C.cons`'\x006A'`C.cons`'\x0065'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
+'\x0044'->C.headys`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$ys)
+_->C.headys`C.cons`ukrainianToMoreSounding(C.tailys)
+elseC.singleton.C.head$ysinletzz=C.headxsinletz2zs=C.headzs`C.cons`ukrainianToMoreSounding(C.tailzs)inifzz>='\x0051'
+thenifzz>='\x0058'
+thenifzz>='\x005E'
+thencasezzof
+'\x005E'->fxs
+'\x0071'->fxs
+'\x0078'->fxs
+_->z2xs
+elsecasezzof
+'\x0058'->fxs
+'\x0059'->fxs
+'\x005A'->fxs
+_->z2xs
+elseifzz>='\x0054'
+thenifzz>='\x0056'
+thencasezzof
+'\x0056'->fxs
+'\x0057'->fxs
+_->z2xs
+elsecasezzof
+'\x0054'->fxs
+'\x0055'->fxs
+_->z2xs
+elsecasezzof
+'\x0051'->fxs
+'\x0052'->fxs
+'\x0053'->fxs
+_->z2xs
+elseifzz<='\x0013'
+thenifzz<='\x0010'
+thencasezzof
+'\x0007'->fxs
+'\x000C'->fxs
+'\x0010'->ifnot.C.null.C.tail$xs
+thencaseC.head.C.tail$xsof
+'\x0073'->ifnot.C.null.C.tail.C.tail$xs
+thenif(C.head.C.tail.C.tail$xs)=='\x0047'
+then'\x0013'`C.cons`'\x0013'`C.cons`'\x0061'`C.cons`
+ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
+else'\x0010'`C.cons`'\x0073'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+else'\x0010'`C.cons`C.singleton'\x0073'
+_->'\x0010'`C.cons`ukrainianToMoreSounding(C.tailxs)
+elseC.singleton'\x0010'
+_->z2xs
+elsecasezzof
+'\x0011'->fxs
+'\x0012'->fxs
+'\x0013'->fxs
+_->z2xs
+elseifzz<='\x0020'
+thenifzz<='\x0015'
+thencasezzof
+'\x0014'->fxs
+'\x0015'->fxs
+_->z2xs
+elsecasezzof
+'\x0016'->fxs
+'\x0020'->ifnot.C.null.C.tail$xs
+thencaseC.head.C.tail$xsof
+'-'->ifnot.C.null.C.tail.C.tail$xs
+thenif(C.head.C.tail.C.tail$xs)=='-'
+then' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
+else' '`C.cons`'-'`C.cons`ukrainianToMoreSounding(C.tailxs)
+elseC.singleton' '
+_->' '`C.cons`ukrainianToMoreSounding(C.tailxs)
+elseC.singleton' '
+_->z2xs
+elseifzz>='\x004B'
+thencasezzof
+'\x004B'->ifnot.C.null.C.tail$xs
+thencaseC.head.C.tail$xsof
+'\x0047'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0061'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+'\x004A'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0075'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+'\x0046'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0065'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+'\x0044'->'\x006A'`C.cons`'\x006A'`C.cons`'\x0069'`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+_->C.headxs`C.cons`ukrainianToMoreSounding(C.tailxs)
+elseC.empty
+'\x0050'->fxs
+_->z2xs
+elsecasezzof
+'\x002D'->ifnot.C.null.C.tail$xs
+thencaseC.head.C.tail$xsof
+'-'->ifnot.C.null.C.tail.C.tail$xs
+thenif(C.head.C.tail.C.tail$xs)==' '
+then' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail.C.tail$xs)
+else' '`C.cons`ukrainianToMoreSounding(C.tail.C.tail$xs)
+elseC.singleton' '
+_->' '`C.cons`ukrainianToMoreSounding(C.tailxs)
+elseC.singleton' '
+'\x0043'->'\x0042'`C.cons`'\x0049'`C.cons`ukrainianToMoreSounding(C.tailxs)
+_->z2xs
+
+-- | Function for special Ukrainian words where "г" sounds approximately as "х"
+-- Функція для спеціальних українських слів, де звук "г" звучить близько до "х"
+changeH2X::C.ByteString->C.ByteString
+changeH2Xxs|C.nullxs=C.empty
+|C.headxs=='\x0076'=ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x006F'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x006B'->'\x0076'`C.cons`'\x006F'`C.cons`'\x0068'`C.cons`'\x006B'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0076'`C.cons`'\x006F'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0076'`C.cons`'\x006F'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
+_->'\x0076'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
+|C.headxs=='\x006C'=ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0065'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x006B'->'\x006C'`C.cons`'\x0065'`C.cons`'\x0068'`C.cons`'\x006B'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006C'`C.cons`'\x0065'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006C'`C.cons`'\x0065'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
+_->'\x006C'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
+|C.headxs=='\x006B'=ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0069'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x0074'->'\x006B'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006B'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006B'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
+_->'\x006B'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
+|C.headxs=='\x006E'=ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0069'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x0074'->'\x006E'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
+_->'\x006E'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
+|C.headxs=='\x0064'=ifC.null.C.tail$xs
+thenxs
+elsecaseC.head.C.tail$xsof
+'\x0069'->ifC.null.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail$xsof
+'\x0041'->ifC.null.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail$xsof
+'\x0074'->ifC.null.C.tail.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail.C.tail$xsof
+'\x0047'->ifC.null.C.tail.C.tail.C.tail.C.tail.C.tail$xs
+thenxs
+elsecaseC.head.C.tail.C.tail.C.tail.C.tail.C.tail$xsof
+'\x0072'->'\x0064'`C.cons`'\x0069'`C.cons`'\x0068'`C.cons`'\x0074'`C.cons`'\x0047'`C.cons`
+'\x0072'`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`'\x0074'`C.cons`'\x0047'`C.cons`
+(C.head.C.tail.C.tail.C.tail.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`'\x0074'`C.cons`(C.head.C.tail.C.tail.C.tail.C.tail$xs)`C.cons`
+changeH2X(C.tail.C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0064'`C.cons`'\x0069'`C.cons`'\x0041'`C.cons`(C.head.C.tail.C.tail.C.tail$xs)`C.cons`
+changeH2X(C.tail.C.tail.C.tail.C.tail$xs)
+_->'\x0064'`C.cons`'\x0069'`C.cons`(C.head.C.tail.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail.C.tail$xs)
+_->'\x0064'`C.cons`(C.head.C.tail$xs)`C.cons`changeH2X(C.tail.C.tail$xs)
+|otherwise=C.headxs`C.cons`changeH2X(C.tailxs)
+
+-- | Function that encode the Unicode characters from '\x0430' to '\x2122' for using in the Data.ByteString.Lazy.Char8 functions
+-- Функція, що кодує Unicode символи з '\x0430' по '\x2122' для використання у Data.ByteString.Lazy.Char8 функціях
+change2BS::String->String
+change2BS(x:(y:(z:xs)))
+|y=='\1100'=
+ifx>='\1088'then
+ifx>='\1094'then
+ifx>='\1097'then
+casexof
+'\1097'->'\SYN':change2BS(z:xs)
+'\1169'->'R':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+casexof
+'\1094'->'\DC3':change2BS(z:xs)
+'\1095'->'\DC4':change2BS(z:xs)
+'\1096'->'\NAK':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+ifx>='\1092'then
+casexof
+'\1092'->'\DC1':change2BS(z:xs)
+'\1093'->'\DC2':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+casexof
+'\1088'->'\a':change2BS(z:xs)
+'\1089'->'\f':change2BS(z:xs)
+'\1090'->'\DLE':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+ifx<='\1078'then
+ifx<='\1075'then
+casexof
+'\1073'->'^':change2BS(z:xs)
+'\1074'->'x':change2BS(z:xs)
+'\1075'->'\US':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+casexof
+'\1076'->'S':change2BS(z:xs)
+'\1078'->'T':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+ifx>='\1084'then
+casexof
+'\1084'->'X':change2BS(z:xs)
+'\1085'->'Y':change2BS(z:xs)
+'\1087'->'Z':change2BS(z:xs)
+_->change2BS(x:z:xs)
+else
+casexof
+'\1079'->'U':change2BS(z:xs)
+'\1082'->'V':change2BS(z:xs)
+'\1083'->'W':change2BS(z:xs)
+_->change2BS(x:z:xs)
+|x=='\1076'=
+caseyof
+'\1079'->ifz=='\1100'then'Q':change2BSxselse
+'O':change2BS(z:xs)
+'\1078'->ifz=='\1100'then'P':change2BSxselse
+'w':change2BS(z:xs)
+_->'d':change2BS(y:z:xs)
+|x>='\8195'=
+ifx>='\8212'then
+ifx>='\8354'then
+ifx>='\8372'then
+ifx>='\8457'then
+casexof
+'\8457'->'\162':change2BS(y:z:xs)
+'\8482'->'\168':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8372'->'\255':change2BS(y:z:xs)
+'\8451'->'\165':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8355'then
+casexof
+'\8354'->'\252':change2BS(y:z:xs)
+'\8355'->'\253':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8356'->'\254':change2BS(y:z:xs)
+'\8364'->'\181':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8263'then
+ifx>='\8233'then
+casexof
+'\8233'->'\246':change2BS(y:z:xs)
+'\8263'->'\247':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8212'->'M':change2BS(y:z:xs)
+'\8230'->'.':'.':'.':change2BS(y:z:xs)
+'\8232'->'\245':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8265'then
+casexof
+'\8264'->'\248':change2BS(y:z:xs)
+'\8265'->'\249':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8352'->'\250':change2BS(y:z:xs)
+'\8353'->'\251':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8202'then
+ifx>='\8199'then
+ifx>='\8201'then
+casexof
+'\8201'->'\232':change2BS(y:z:xs)
+'\8202'->'\233':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8199'->'\230':change2BS(y:z:xs)
+'\8200'->'\231':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8196'then
+casexof
+'\8195'->'\226':change2BS(y:z:xs)
+'\8196'->'\227':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8197'->'\228':change2BS(y:z:xs)
+'\8198'->'\229':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8206'then
+ifx>='\8205'then
+casexof
+'\8205'->'\236':change2BS(y:z:xs)
+'\8206'->'\237':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8203'->'\234':change2BS(y:z:xs)
+'\8204'->'\235':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\8209'then
+casexof
+'\8207'->'\238':change2BS(y:z:xs)
+'\8208'->'\239':change2BS(y:z:xs)
+'\8209'->'\240':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\8210'->'\241':change2BS(y:z:xs)
+'\8211'->'L':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+|x<='\1088'=
+ifx>='\1080'then
+ifx>='\1085'then
+ifx>='\1087'then
+casexof
+'\1087'->'p':change2BS(y:z:xs)
+'\1088'->'r':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1085'->'n':change2BS(y:z:xs)
+'\1086'->'o':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\1082'then
+casexof
+'\1080'->'y':change2BS(y:z:xs)
+'\1081'->'j':change2BS(y:z:xs)
+'\1082'->'k':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1083'->'l':change2BS(y:z:xs)
+'\1084'->'m':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\1075'then
+ifx>='\1074'then
+casexof
+'\1074'->'v':change2BS(y:z:xs)
+'\1075'->'A':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\''->'K':change2BS(y:z:xs)
+'\1072'->'a':change2BS(y:z:xs)
+'\1073'->'b':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\1077'then
+casexof
+'\1076'->'d':change2BS(y:z:xs)
+'\1077'->'e':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1078'->'E':change2BS(y:z:xs)
+'\1079'->'z':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+|x<='\1097'=
+ifx>='\1093'then
+ifx>='\1096'then
+casexof
+'\1096'->'B':change2BS(y:z:xs)
+'\1097'->'C':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1093'->'h':change2BS(y:z:xs)
+'\1094'->'c':change2BS(y:z:xs)
+'\1095'->'I':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+ifx<='\1090'then
+casexof
+'\1089'->'s':change2BS(y:z:xs)
+'\1090'->'t':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1091'->'u':change2BS(y:z:xs)
+'\1092'->'f':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+|x<='\1108'=
+ifx>='\1103'then
+casexof
+'\1103'->'G':change2BS(y:z:xs)
+'\1108'->'F':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+else
+casexof
+'\1100'->'q':change2BS(y:z:xs)
+'\1102'->'J':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+|x<='\1111'=
+casexof
+'\1110'->'i':change2BS(y:z:xs)
+'\1111'->'D':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+|otherwise=
+casexof
+'\1169'->'g':change2BS(y:z:xs)
+'\8194'->'\225':change2BS(y:z:xs)
+_->x:change2BS(y:z:xs)
+change2BS[x,y]
+|y=='\1100'=
+ifx>='\1088'then
+ifx>='\1094'then
+ifx>='\1096'then
+casexof
+'\1097'->"\SYN"
+'\1169'->"R"
+_->change2BS[x]
+else
+casexof
+'\1094'->"\DC3"
+'\1095'->"\DC4"
+'\1096'->"\NAK"
+_->change2BS[x]
+else
+ifx<='\1090'then
+casexof
+'\1088'->"\a"
+'\1089'->"\f"
+'\1090'->"\DLE"
+_->change2BS[x]
+else
+casexof
+'\1092'->"\DC1"
+'\1093'->"\DC2"
+_->change2BS[x]
+else
+ifx<='\1078'then
+ifx>='\1076'then
+casexof
+'\1076'->"S"
+'\1078'->"T"
+_->change2BS[x]
+else
+casexof
+'\1073'->"^"
+'\1074'->"x"
+'\1075'->"\US"
+_->change2BS[x]
+else
+ifx<='\1083'then
+casexof
+'\1079'->"U"
+'\1082'->"V"
+'\1083'->"W"
+_->change2BS[x]
+else
+casexof
+'\1084'->"X"
+'\1085'->"Y"
+'\1087'->"Z"
+_->change2BS[x]
+|x=='\1076'=
+caseyof
+'\1079'->"O"
+'\1078'->"w"
+_->'d':change2BS[y]
+|x>='\8195'=
+ifx>='\8212'then
+ifx>='\8354'then
+ifx>='\8372'then
+ifx>='\8457'then
+casexof
+'\8457'->'\162':change2BS[y]
+'\8482'->'\168':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8372'->'\255':change2BS[y]
+'\8451'->'\165':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8355'then
+casexof
+'\8354'->'\252':change2BS[y]
+'\8355'->'\253':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8356'->'\254':change2BS[y]
+'\8364'->'\181':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8263'then
+ifx>='\8233'then
+casexof
+'\8233'->'\246':change2BS[y]
+'\8263'->'\247':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8212'->'M':change2BS[y]
+'\8230'->'.':'.':'.':change2BS[y]
+'\8232'->'\245':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8265'then
+casexof
+'\8264'->'\248':change2BS[y]
+'\8265'->'\249':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8352'->'\250':change2BS[y]
+'\8353'->'\251':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8202'then
+ifx>='\8199'then
+ifx>='\8201'then
+casexof
+'\8201'->'\232':change2BS[y]
+'\8202'->'\233':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8199'->'\230':change2BS[y]
+'\8200'->'\231':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8196'then
+casexof
+'\8195'->'\226':change2BS[y]
+'\8196'->'\227':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8197'->'\228':change2BS[y]
+'\8198'->'\229':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8206'then
+ifx>='\8205'then
+casexof
+'\8205'->'\236':change2BS[y]
+'\8206'->'\237':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8203'->'\234':change2BS[y]
+'\8204'->'\235':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\8209'then
+casexof
+'\8207'->'\238':change2BS[y]
+'\8208'->'\239':change2BS[y]
+'\8209'->'\240':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\8210'->'\241':change2BS[y]
+'\8211'->'L':change2BS[y]
+_->x:change2BS[y]
+|x<='\1088'=
+ifx>='\1080'then
+ifx>='\1085'then
+ifx>='\1087'then
+casexof
+'\1087'->'p':change2BS[y]
+'\1088'->'r':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1085'->'n':change2BS[y]
+'\1086'->'o':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\1082'then
+casexof
+'\1080'->'y':change2BS[y]
+'\1081'->'j':change2BS[y]
+'\1082'->'k':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1083'->'l':change2BS[y]
+'\1084'->'m':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\1075'then
+ifx>='\1074'then
+casexof
+'\1074'->'v':change2BS[y]
+'\1075'->'A':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\''->'K':change2BS[y]
+'\1072'->'a':change2BS[y]
+'\1073'->'b':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\1077'then
+casexof
+'\1076'->'d':change2BS[y]
+'\1077'->'e':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1078'->'E':change2BS[y]
+'\1079'->'z':change2BS[y]
+_->x:change2BS[y]
+|x<='\1097'=
+ifx>='\1093'then
+ifx>='\1096'then
+casexof
+'\1096'->'B':change2BS[y]
+'\1097'->'C':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1093'->'h':change2BS[y]
+'\1094'->'c':change2BS[y]
+'\1095'->'I':change2BS[y]
+_->x:change2BS[y]
+else
+ifx<='\1090'then
+casexof
+'\1089'->'s':change2BS[y]
+'\1090'->'t':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1091'->'u':change2BS[y]
+'\1092'->'f':change2BS[y]
+_->x:change2BS[y]
+|x<='\1108'=
+ifx>='\1103'then
+casexof
+'\1103'->'G':change2BS[y]
+'\1108'->'F':change2BS[y]
+_->x:change2BS[y]
+else
+casexof
+'\1100'->'q':change2BS[y]
+'\1102'->'J':change2BS[y]
+_->x:change2BS[y]
+|x<='\1111'=
+casexof
+'\1110'->'i':change2BS[y]
+'\1111'->'D':change2BS[y]
+_->x:change2BS[y]
+|otherwise=
+casexof
+'\1169'->'g':change2BS[y]
+'\8194'->'\225':change2BS[y]
+_->x:change2BS[y]
+change2BS[x]
+|x>='\8195'=
+ifx>='\8212'then
+ifx>='\8354'then
+ifx>='\8372'then
+ifx>='\8457'then
+casexof
+'\8457'->"\162"
+'\8482'->"\168"
+_->[x]
+else
+casexof
+'\8372'->"\255"
+'\8451'->"\165"
+_->[x]
+else
+ifx<='\8355'then
+casexof
+'\8354'->"\252"
+'\8355'->"\253"
+_->[x]
+else
+casexof
+'\8356'->"\254"
+'\8364'->"\181"
+_->[x]
+else
+ifx<='\8263'then
+ifx>='\8233'then
+casexof
+'\8233'->"\246"
+'\8263'->"\247"
+_->[x]
+else
+casexof
+'\8212'->"M"
+'\8230'->"..."
+'\8232'->"\245"
+_->[x]
+else
+ifx<='\8265'then
+casexof
+'\8264'->"\248"
+'\8265'->"\249"
+_->[x]
+else
+casexof
+'\8352'->"\250"
+'\8353'->"\251"
+_->[x]
+else
+ifx<='\8202'then
+ifx>='\8199'then
+ifx>='\8201'then
+casexof
+'\8201'->"\232"
+'\8202'->"\233"
+_->[x]
+else
+casexof
+'\8199'->"\230"
+'\8200'->"\231"
+_->[x]
+else
+ifx<='\8196'then
+casexof
+'\8195'->"\226"
+'\8196'->"\227"
+_->[x]
+else
+casexof
+'\8197'->"\228"
+'\8198'->"\229"
+_->[x]
+else
+ifx<='\8206'then
+ifx>='\8205'then
+casexof
+'\8205'->"\236"
+'\8206'->"\237"
+_->[x]
+else
+casexof
+'\8203'->"\234"
+'\8204'->"\235"
+_->[x]
+else
+ifx<='\8209'then
+casexof
+'\8207'->"\238"
+'\8208'->"\239"
+'\8209'->"\240"
+_->[x]
+else
+casexof
+'\8210'->"\241"
+'\8211'->"L"
+_->[x]
+|x<='\1088'=
+ifx>='\1080'then
+ifx>='\1085'then
+ifx>='\1087'then
+casexof
+'\1087'->"p"
+'\1088'->"r"
+_->[x]
+else
+casexof
+'\1085'->"n"
+'\1086'->"o"
+_->[x]
+else
+ifx<='\1082'then
+casexof
+'\1080'->"y"
+'\1081'->"j"
+'\1082'->"k"
+_->[x]
+else
+casexof
+'\1083'->"l"
+'\1084'->"m"
+_->[x]
+else
+ifx<='\1075'then
+ifx>='\1074'then
+casexof
+'\1074'->"v"
+'\1075'->"A"
+_->[x]
+else
+casexof
+'\''->"K"
+'\1072'->"a"
+'\1073'->"b"
+_->[x]
+else
+ifx<='\1077'then
+casexof
+'\1076'->"d"
+'\1077'->"e"
+_->[x]
+else
+casexof
+'\1078'->"E"
+'\1079'->"z"
+_->[x]
+|x<='\1097'=
+ifx>='\1093'then
+ifx>='\1096'then
+casexof
+'\1096'->"B"
+'\1097'->"C"
+_->[x]
+else
+casexof
+'\1093'->"h"
+'\1094'->"c"
+'\1095'->"I"
+_->[x]
+else
+ifx<='\1090'then
+casexof
+'\1089'->"s"
+'\1090'->"t"
+_->[x]
+else
+casexof
+'\1091'->"u"
+'\1092'->"f"
+_->[x]
+|x<='\1108'=
+ifx>='\1103'then
+casexof
+'\1103'->"G"
+'\1108'->"F"
+_->[x]
+else
+casexof
+'\1100'->"q"
+'\1102'->"J"
+_->[x]
+|x<='\1111'=
+casexof
+'\1110'->"i"
+'\1111'->"D"
+_->[x]
+|otherwise=
+casexof
+'\1169'->"g"
+'\8194'->"\225"
+_->[x]
+change2BS[]=[]
+
+-- | Function that converts Latin text into English-sounding letters in Ukrainian
+-- Функція, яка конвертує текст латиницею в літери, які звучать по-англійськи, записані українською
+readEnglishWithUkrainian::Char->String
+readEnglishWithUkrainianx|x>='\x0061'&&x<='\x007A'=
+ifx>='\x006E'
+thenifx>='\x0075'
+thenifx>='\x0078'
+thencasexof
+'\x0078'->"екс"
+'\x0079'->"уай"
+_->"зед"
+elsecasexof
+'\x0075'->"ю"
+'\x0076'->"ві"
+_->"даблййу"
+elseifx<='\x0071'
+thenifx>='\x0070'
+thencasexof
+'\x0070'->"пі"
+_->"кййу"
+elsecasexof
+'\x006E'->"ен"
+_->"оу"
+elsecasexof
+'\x0072'->"ар"
+'\x0073'->"ес"
+_->"ті"
+elseifx<='\x0067'
+thenifx>='\x0065'
+thencasexof
+'\x0065'->"і"
+'\x0066'->"еф"
+_->"джи"
+elseifx<='\x0062'
+thencasexof
+'\x0061'->"ей"
+_->"бі"
+elsecasexof
+'\x0063'->"сі"
+_->"ді"
+elseifx<='\x006A'
+thencasexof
+'\x0068'->"ейч"
+'\x0069'->"ай"
+_->"джей"
+elsecasexof
+'\x006B'->"кей"
+'\x006C'->"ел"
+_->"ем"
+|x>='\x0041'&&x<='\x005A'=
+ifx>='\x004E'
+thenifx>='\x0055'
+thenifx>='\x0058'
+thencasexof
+'\x0058'->"екс"
+'\x0059'->"уай"
+_->"зед"
+elsecasexof
+'\x0055'->"ю"
+'\x0056'->"ві"
+_->"даблййу"
+elseifx<='\x0051'
+thenifx>='\x0050'
+thencasexof
+'\x0050'->"пі"
+_->"кййу"
+elsecasexof
+'\x004E'->"ен"
+_->"оу"
+elsecasexof
+'\x0052'->"ар"
+'\x0053'->"ес"
+_->"ті"
+elseifx<='\x0047'
+thenifx>='\x0045'
+thencasexof
+'\x0045'->"і"
+'\x0046'->"еф"
+_->"джи"
+elseifx<='\x0042'
+thencasexof
+'\x0041'->"ей"
+_->"бі"
+elsecasexof
+'\x0043'->"сі"
+_->"ді"
+elseifx<='\x004A'
+thencasexof
+'\x0048'->"ейч"
+'\x0049'->"ай"
+_->"джей"
+elsecasexof
+'\x004B'->"кей"
+'\x004C'->"ел"
+_->"ем"
+|otherwise=[x]
+
+-- | Function that converts letters to lower case letters and makes some additional punctuation changes
+-- Функція, що конвертує літери в прописні літери та робить додаткові пунктуаційні зміни
+firstChange::Char->Char
+firstChangey=caseyof
+'['->'('
+']'->')'
+'\x203C'->'!'
+_->DC.toLowery
+
+-- | Function that sounds separated with whitespaces numbers digit by digit
+-- Функція, яка озвучує відокремлені пробілами числа цифра за цифрою
+numberSounds::Char->String
+numberSoundsx|x>='\x0035'=
+ifx>='\x0038'
+thencasexof
+'\x0038'->" вісім "
+_->" девййать "
+elsecasexof
+'\x0035'->" пййать "
+'\x0036'->" шість "
+_->" сім "
+|otherwise=
+ifx<='\x0032'
+thencasexof
+'\x0030'->" нуль "
+'\x0031'->" 2один "
+_->" два "
+elsecasexof
+'\x0033'->" три "
+_->" чотири "
+
+-- | Function that considers a number of punctuation marks for proper pause creation
+-- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
+punctL::Integer->Integer->String->String->String->[String]->IO()
+punctLkt1xsyszs_|k>=10000000000=
+punctL1(letr=fromIntegralk/100000000000000inifr>=0.1thenr-0.014else0.086)t1xs
+|DC.isPunctuation.head$xs=
+ifk>=1000200
+thenifk>=10000000
+thenifk>=12000000
+thencasekof
+12000000->punctL10.9t1xs
+100000000->punctL10.5t1xs
+1000000000->punctL10.3t1xs
+_->punctL10.7t1xs
+elsecasekof
+10000000->punctL10.4t1xs
+10000001->punctL10.95t1xs
+10000010->punctL10.95t1xs
+_->punctL10.7t1xs
+elseifk>=2000100
+thencasekof
+2000100->punctL11.0t1xs
+2001000->punctL11.0t1xs
+3000000->punctL10.9t1xs
+_->punctL10.7t1xs
+elsecasekof
+1000200->punctL11.2t1xs
+1001100->punctL11.3t1xs
+1002000->punctL11.2t1xs
+_->punctL10.7t1xs
+elseifk>=1100
+thenifk>=10000
+thencasekof
+10000->punctL10.6t1xs
+100000->punctL10.7t1xs
+1000000->punctL10.8t1xs
+_->punctL10.7t1xs
+elsecasekof
+1100->punctL11.2t1xs
+2000->punctL11.1t1xs
+3000->punctL11.3t1xs
+_->punctL10.7t1xs
+elseifk<=100
+thencasekof
+1->punctL10.85t1xs
+10->punctL10.75t1xs
+100->punctL10.9t1xs
+_->punctL10.7t1xs
+elsecasekof
+200->punctL11.1t1xs
+300->punctL11.3t1xs
+1000->punctL10.9t1xs
+_->punctL10.7t1xs
+|otherwise=
+let(ts,us)=oneToTuple2.filter(/='q')$xsiniflastxs=='q'
+thendo
+eE<-endE
+eS<-endS
+callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++ts++".wav \""++ts++"\"")
+callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++ts++".wav "++showt1++"."++ts++".wav "++us)
+addSoftSign$showt1++"."++ts++".wav"
+elsedo
+eE<-endE
+eS<-endS
+callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++xs++".wav \""++ts++"\"")
+callCommand$"sox"++eS++" --multi-threaded "++"m."++showt1++"."++xs++".wav "++showt1++"."++xs++".wav "++us++(ifxs=="y"then" tempo -s 0.7"else"")
+
+-- | Function-predicate to check whether its argument is a digit or dot
+-- Функція-предикат, яка перевіряє, чи є її аргумент цифра чи крапка
+isDigitOrDot::Char->Bool
+isDigitOrDotx=DC.isDigitx||(x=='\x002E')
+
+-- | Function that converts a String with digits into an Integer
+-- Функція, що конвертує String з цифрами в Integer
+stringToInteger::String->Integer
+stringToIntegerxs|nullxs=0
+|otherwise=
+foldl1((+).(*10))$!mapcharToDigitxs
+wherecharToDigitx=casexof
+'1'->1
+'2'->2
+'3'->3
+'4'->4
+'5'->5
+'6'->6
+'7'->7
+'8'->8
+'9'->9
+'0'->0
+_->error"Character Is Not a Digit!\n"
+
+-- | Additional function that is used for optimization of the punctL and punctL11 functions
+-- Додаткова функція, яка використовується для оптимізації функцій punctL і punctL11
+punctOpt::String->Integer
+punctOptxs|(not.null.tail$xs)&&headxs=='!'&&(DC.isDigit.head.tail$xs)=
+letz=dropWhile(=='\x0030').(\x->iflastx=='\x002E'theninitxelsex).filterisDigitOrDot$xsin
+ifheadz=='\x002E'
+thenletzk1=take3.tail$zin
+letzk2=lengthzk1incasezk2of
+0->stringToIntegerz*10000000000000
+_->stringToIntegerzk1*10^(14-zk2)
+elseletzk1=take3.dropWithFirst(/='\x002E')$zin
+letz0=takeWhile(/='\x002E')zin
+letzk2=lengthzk1in
+letzk3=z0++zk1incasezk2of
+0->stringToIntegerz*10000000000000
+_->stringToIntegerzk3*10^(14-zk2)
+|otherwise=
+sum.map(\x->ifx>='\x003A'
+thenifx>='\x004F'
+thencasexof
+'\x004C'->10
+'\x004D'->1
+_->0
+elsecasexof
+'\x003A'->100000
+'\x003B'->10000
+'\x003F'->100
+_->0
+elseifx>='\x002C'
+thencasexof
+'\x002C'->10000000
+'\x002E'->1000000
+_->0
+elsecasexof
+'\x0021'->1000
+'\x0028'->1000000000
+'\x0029'->100000000
+_->0)$xs
+
+-- | Function that considers a number of punctuation marks for proper pause creation
+-- Функція, яка бере до уваги кількість пунктуаційних знаків для правильного створення пауз
+punctL11::Integer->Integer->String->String->String->[String]->IO()
+punctL11kt1xsyszsargs|k>=10000000000=
+punctL1(letr=fromIntegralk/100000000000000inifr>=0.1thenr-0.014else0.086)t1xs
+|DC.isPunctuation.head$xs=
+ifk>=1000200
+thenifk>=10000000
+thenifk>=12000000
+thencasekof
+12000000->punctL10.9t1xs
+100000000->punctL10.5t1xs
+1000000000->punctL10.3t1xs
+_->punctL10.7t1xs
+elsecasekof
+10000000->punctL10.4t1xs
+10000001->punctL10.95t1xs
+10000010->punctL10.95t1xs
+_->punctL10.7t1xs
+elseifk>=2000100
+thencasekof
+2000100->punctL11.0t1xs
+2001000->punctL11.0t1xs
+3000000->punctL10.9t1xs
+_->punctL10.7t1xs
+elsecasekof
+1000200->punctL11.2t1xs
+1001100->punctL11.3t1xs
+1002000->punctL11.2t1xs
+_->punctL10.7t1xs
+elseifk>=1100
+thenifk>=10000
+thencasekof
+10000->punctL10.6t1xs
+100000->punctL10.7t1xs
+1000000->punctL10.8t1xs
+_->punctL10.7t1xs
+elsecasekof
+1100->punctL11.2t1xs
+2000->punctL11.1t1xs
+3000->punctL11.3t1xs
+_->punctL10.7t1xs
+elseifk<=100
+thencasekof
+1->punctL10.85t1xs
+10->punctL10.75t1xs
+100->punctL10.9t1xs
+_->punctL10.7t1xs
+elsecasekof
+200->punctL11.1t1xs
+300->punctL11.3t1xs
+1000->punctL10.9t1xs
+_->punctL10.7t1xs
+|otherwise=
+let(ts,us)=oneToTuple2.filter(/='q')$xsincaseheadargsof
+"1"->createZeroSyllable(0.7,t1,xs,ys,zs,ts,us)
+"2"->createZeroSyllable(0.8,t1,xs,ys,zs,ts,us)
+"3"->createZeroSyllable(0.9,t1,xs,ys,zs,ts,us)
+_->createZeroSyllable(0.65,t1,xs,ys,zs,ts,us)
+
+-- | Function that creates Ukrainian syllables and groups them with some parameters to be then processed by the eSpeak and SoX executables
+-- Функція, що створює українські склади та групує їх з деякими параметрами, щоб потім вони були оброблені програмами eSpeak і SoX
+createSyllablesReady::(C.ByteString,(MaybeInteger,Integer))->[((String,String),(String,Integer))]
+createSyllablesReadyx=casesnd.snd$xof
+0->zeroSyllablePart.fst$x
+_->createSyllablesMultiLast2(divideToUnits.fst$x)(sndx)
+
+-- | Function that creates from a Ukrainian pre-processed ByteString a data of the type (ByteString, (Maybe Integer, Integer)) that takes into account a word emphasis
+-- Функція, що створює з попередньо обробленого українського ByteString дані типу (ByteString, (Maybe Integer, Integer)), що враховують наголос у складі
+accountEmphasis::C.ByteString->(C.ByteString,(MaybeInteger,Integer))
+accountEmphasisxs|C.nullxs=(C.empty,(Nothing,0))
+|otherwise=letz=fromIntegral.C.length.C.filterisVowelL$xsincaseC.readIntegerxsof
+Nothing->(xs,(Nothing,z))
+Just(k,ys)->(ys,(Just(k`mod`z),z))
+
+-- | Function-predicate that checks whether its argument is either a vowel or a punctuation mark
+-- Функція-предикат, яка перевіряє, чи є її аргумент голосним або знаком пунктуації
+isVowelOrPunctuation::Char->Bool
+isVowelOrPunctuationx=DC.isPunctuationx||isVowelEGx
+
+-- | Function-predicate to check whether its argument is a Vowel sound letter in Esperanto or Greek respesentation of the group of sounds
+-- Функція-предикат, щоб визначити, чи її аргумент є літерою, що позначає голосний у представленні грецькою мовою чи есперанто
+isVowelEG::Char->Bool
+isVowelEGx|x>='\x006F'=
+casexof
+'\x006F'->True
+'\x0075'->True
+_->False
+|otherwise=
+casexof
+'\x0061'->True
+'\x0065'->True
+'\x0069'->True
+_->False
+
+-- | Optimized function to take elements of the list after the first occasion of the wrong predicate p excluding the first occurance
+-- Оптимізована функція, щоб узяти елементи списку після першої появи хибності у предикаті, виключаючи саму цю першу появу
+dropWithFirst::(a->Bool)->([a]->[a])
+dropWithFirstp=fst.foldrfv
+where
+fx(ys,xs)=(ifpxthenyselsexs,x:xs)
+v=([],[])
+
+-- | Function-predicate that checks whether its argument is either a digit character or a dash
+-- Функція-предикат, що перевіряє, чи її аргумент є символом цифри чи дефісу
+isDigitOrDash::Char->Bool
+isDigitOrDashx=DC.isDigitx||x=='\x002D'
+
+-- | Function-predicate that checks whether its argument is a punctuation mark or a whitespace encoded as ByteString
+-- Функція-предикат, яка перевіряє, чи є її аргумент пунктуаційним знаком чи пробілом, закодованим як ByteString
+isPunctOrSpaceB::Char->Bool
+isPunctOrSpaceBx=casexof
+'\x000C'->False
+_->DC.isSpacex||DC.isPunctuationx||(x>='\x00E1'&&x<='\x00F9')
+
+-- | Additional function that is used for pause creation into the functions punctL and punctL11
+-- Додаткова функція, яка використовується всередині функцій punctL і punctL11 для створення пауз
+punctL1::Double->Integer->String->IO()
+punctL1xt1xs=do
+eS<-endS
+callCommand("sox"++eS++" --multi-threaded -n -r 22.05k -c 1 -b 16 "++showt1++"."++xs++".wav delay "++show(x+0.001)++" trim 0 "++showx)
+
+-- | Function that is used to convert single letters to a respective syllables for sounding
+-- Функція, що використовується, щоб перетворити окремі літери на відповідні склади для озвучування
+oneToTuple2::String->(String,String)
+oneToTuple2[]=([],[])
+oneToTuple2xs=letx=headxsinifx=='d'
+thenifnull.tail$xs
+then("ed"," trim -0.070")
+elsecasehead.tail$xsof
+'z'->("edz"," trim -0.178")
+'ĵ'->("edĵ"," trim -0.166")
+_->("ed"," trim -0.070")
+elseifnot.DC.isAlpha$x
+then(xs,"")
+elseifx>='p'
+thenifx>='z'
+thenifx>='ĵ'
+thencasexof
+'ĵ'->("eĵ"," trim -0.132")
+'ŝ'->("eŝ"," trim -0.121")
+'γ'->("αγ"," trim -0.117")
+_->([x],"")
+elsecasexof
+'z'->("ez"," trim -0.157")
+'ĉ'->("eĉ"," trim -0.114")
+'ĥ'->("eĥ"," trim -0.118")
+_->([x],"")
+elseifx<='t'
+thenifx>='s'
+thencasexof
+'s'->("es"," trim -0.121")
+'t'->("et"," trim -0.071")
+_->([x],"")
+elsecasexof
+'p'->("ep"," trim -0.103")
+'r'->("er"," trim -0.099")
+_->([x],"")
+elsecasexof
+'u'->("u","")
+'v'->("ev"," trim -0.134")
+'y'->("yy","")
+_->([x],"")
+elseifx<='h'
+thenifx>='f'
+thencasexof
+'f'->("ef"," trim -0.112")
+'g'->("eg"," trim -0.081")
+'h'->("eh"," trim -0.083")
+_->([x],"")
+elseifx<='b'
+thencasexof
+'a'->("a","")
+'b'->("eb"," trim -0.070")
+_->([x],"")
+elsecasexof
+'c'->("ec"," trim -0.115")
+'e'->("e","")
+_->([x],"")
+elseifx<='l'
+thenifx>='k'
+thencasexof
+'k'->("ek"," trim -0.071")
+'l'->("el"," trim -0.105")
+_->([x],"")
+elsecasexof
+'i'->("i","")
+'j'->("ej"," trim -0.133")
+_->([x],"")
+elsecasexof
+'m'->("em"," trim -0.146")
+'n'->("en"," trim -0.136")
+'o'->("o","")
+_->([x],"")
+
+-- | Function that is used for zero-syllable creation varied from OS and duration
+-- Функція, яка використовується для створення слів без голосних і варіюється в залежності від ОС та тривалості
+createZeroSyllable::(Double,Integer,String,String,String,String,String)->IO()
+createZeroSyllable(v,t1,xs,ys,zs,ts,us)|lastxs=='q'=
+do
+eE<-endE
+eS<-endS
+callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++ts++".wav \""++ts++"\"")
+callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++ts++".wav "++showt1++"."++ts++".wav "++us++" tempo -s "++showv)
+addSoftSign$showt1++"."++ts++".wav"
+|otherwise=
+do
+eE<-endE
+eS<-endS
+callCommand("espeak"++eE++" -v "++ys++" "++zs++" -w m."++showt1++"."++xs++".wav \""++ts++"\"")
+callCommand("sox"++eS++" --multi-threaded "++"m."++showt1++"."++xs++".wav "++showt1++"."++xs++".wav "++us++" tempo -s "++showv)
+
+-- | Function that takes a Ukrainian String and converts it to the data of the type ((String, String), (String, Integer)) that is used for zero-vowel words
+-- Функція, що отримує на вхід український String і конвертує його на дані типу ((String, String), (String, Integer)), що використовується для слів без голосних
+zeroSyllablePart::C.ByteString->[((String,String),(String,Integer))]
+zeroSyllablePartxs|C.allisSimPRecordxs=
+[((C.unpackxs,"esperanto"),("-z",0))]
+|otherwise=
+filter(not.null.fst.fst).concatPunct.map(\x->ifx=="γ"
+then(("γ","greek"),("-z",0))
+elseifx=="y"
+then(("y","polish"),("-z",0))
+else((x,"esperanto"),("-z",0))).convertSyllableToLanguage$xs
+
+-- | Function that creates data of the type [((String, String),(String,Integer))] for non-zero-syllable words
+-- Функція, що створює дані типу [((String, String),(String,Integer))] для слів з голосними
+createSyllablesMultiLast2::[[String]]->(MaybeInteger,Integer)->[((String,String),(String,Integer))]
+createSyllablesMultiLast2xss(Justy,z)|nullxss=[]
+|otherwise=casezof
+1->caseyof
+0->concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-z",1))
+"y"->(("y","polish"),("-z",0))
+_->((x,"esperanto"),("-z",1))))xss
+_->concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-a 110 -z",1))
+"y"->(("y","polish"),("-a 110 -z",0))
+_->((x,"esperanto"),("-a 110 -z",1))))xss
+_->ify/=0
+thenconcat[concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-z",z))
+"y"->(("y","polish"),("-z",0))
+_->((x,"esperanto"),("-z",z)))).take(fromInteger(y-1))$xss,concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-a 110 -z",z))
+"y"->(("y","polish"),("-a 110 -z",0))
+_->((x,"esperanto"),("-a 110 -z",z))))[head$drop(fromInteger(y-1))xss],concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-z",z))
+"y"->(("y","polish"),("-z",0))
+_->((x,"esperanto"),("-z",z))))$drop(fromIntegery)xss]
+else(concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-z",z))
+"y"->(("y","polish"),("-z",0))
+_->((x,"esperanto"),("-z",z)))).take(fromInteger(z-1))$xss)++concatMap(map(\x->casexof
+"γ"->(("γ","greek"),("-a 110 -z",z))
+"y"->(("y","polish"),("-a 110 -z",0))
+_->((x,"esperanto"),("-a 110 -z",z))))[lastxss]
+createSyllablesMultiLast2xss(Nothing,z)|nullxss=[]
+|otherwise=createSyllablesMultiLast2xss(Just(z-1),z)
+
+-- | Additional function for dividing into units for further processing
+-- Додаткова функція для поділу на одиниці для подальшої обробки
+divideToUnits::C.ByteString->[[String]]
+divideToUnitsxs|C.nullxs=[]
+|otherwise=mapconvertSyllableToLanguage.createSyllablesMulti$xs
+
+-- | Function-predicate that checks whether its argument is a Ukrainian vowel letter
+-- Функція-предикат, що перевіряє, чи її аргумент є українською голосною літерою
+isVowelL::Char->Bool
+isVowelLx|x>='\x0065'=
+ifx>='\x0075'
+thencasexof
+'\x0075'->True
+'\x0079'->True
+_->False
+elsecasexof
+'\x0065'->True
+'\x0069'->True
+'\x006F'->True
+_->False
+|otherwise=
+ifx<='\x0047'
+thencasexof
+'\x0044'->True
+'\x0046'->True
+'\x0047'->True
+_->False
+elsecasexof
+'\x004A'->True
+'\x0061'->True
+_->False
+
+-- | Optimized function that is applied to the zero-syllable parts to concatenate the punctuation into the one sample of sounding
+-- Оптимізована функція, що застосовується до нуль-складових слів, щоб з'єднати пунктуаційні знаки в одну частину озвучування
+concatPunct::[((String,String),(String,Integer))]->[((String,String),(String,Integer))]
+concatPunct=fst.foldrfv
+wherev=([],[])
+fx(ys,xs)|(not.null.fst.fst$x)&&isPunctOrSpace(head.fst.fst$x)=
+([((filter(not.DC.isSpace)(takeWhileisPunctOrSpace.concatMap(fst.fst)$(x:xs)),"esperanto"),("-z",0))],x:xs)
+|otherwise=(x:ys,x:xs)
+
+-- | Additional function that is used inside the createSoundsForSyllable function to convert Ukrainian syllables into Esperanto, or Polish, or Greek ones
+-- Додаткова функція, що використовується всередині createSoundsForSyllable для конвертування українського складу в склад мовою есперанто, польською чи грецькою
+convertSyllableToLanguage::C.ByteString->[String]
+convertSyllableToLanguagexs|C.nullxs=[]
+|otherwise=
+letchEs=takeWhile(not.null).map(takeWithFirst(/='q')).iterate(dropWithFirst(/='q')).changeToEsperantoinifC.any(\x->(x=='\x0041')||(x=='\x0079'))xs
+thenconcatMap(L.groupByisSpecial).chEs$xs
+elsechEsxs
+
+-- | Function to create a list of syllables from the Ukrainian multi-syllable word
+-- Функція, що утворює список складів з українського багатоскладового слова
+createSyllablesMulti::C.ByteString->[C.ByteString]
+createSyllablesMultixs=letzss=divideToListOfSoundGroupsAsListsxsin
+map(\y->C.concat.mapfst.concat.take(sndy).drop(fsty)$zss)(listOfFramesxs)
+
+-- | Function-predicate to check whether its argument is either a space or a punctuation sign
+-- Функція-предикат для перевірки, чи її аргумент є чи пробілом, чи знаком пунктуації
+isPunctOrSpace::Char->Bool
+isPunctOrSpacex=DC.isSpacex||DC.isPunctuationx
+
+-- | Optimized function to take elements of the list till the first occasion of the wrong predicate p including the first occurance
+-- Оптимізована функція, щоб узяти елементи списку до першої появи хибності у предикаті, включаючи саму цю першу появу
+takeWithFirst::(a->Bool)->([a]->[a])
+takeWithFirstp=fst.foldrfv
+where
+fx(ys,xs)=(ifpxthenx:yselse[x],x:xs)
+v=([],[])
+
+-- | Function that actually converts a Ukrainian word written as an encoded ByteString to the Esperanto string for further reading
+-- Функція, що власне перетворює українське слово, записане як закодований ByteString, у Esperanto рядок для подальшого озвучування
+changeToEsperanto::C.ByteString->String
+changeToEsperantoxs|C.nullxs=[]
+|otherwise=changeToDecoded.C.unpack.verbSpecialConv$xs
+
+-- | Function that is used to convert "ться" into the wright letter combination in Esperanto
+-- Функція, що використовується для перетворення "ться" на правильну комбінацію літер есперанто
+verbSpecialConv::C.ByteString->C.ByteString
+verbSpecialConvxs|C.nullxs=C.empty
+|C.null.C.tail$xs=xs
+|not.C.null.C.tail.C.tail$xs=if(C.headxs=='\x0013')&&((C.head.C.tail$xs)=='\x0013')&&((C.head.C.tail.C.tail$xs)=='\x0061')
+then'c'`C.cons`'s'`C.cons`'j'`C.cons`'a'`C.cons`verbSpecialConv(C.drop3xs)
+elseC.headxs`C.cons`verbSpecialConv(C.tailxs)
+|otherwise=C.headxs`C.cons`verbSpecialConv(C.tailxs)
+
+-- | Function-predicate to group only not special letters
+-- Функція-предикат для групування лише не спеціальних літер
+isSpecial::Char->Char->Bool
+isSpecialxy=continueLangx&&continueLangy
+
+-- | Intermediate function for creating a Ukrainian syllables
+-- Проміжна функція для створення українських складів
+divideToListOfSoundGroupsAsLists::C.ByteString->[[(C.ByteString,Char)]]
+divideToListOfSoundGroupsAsListsxs=concatMapdivideConsonants(takeWhile(not.null)$prepareToSyllablesxs)
+
+-- | Function to create a list of frames for producing syllables in multi-syllable word
+-- Функція, щоб створити список обмежень для генерування складів у багатоскладовому слові
+listOfFrames::C.ByteString->[(Int,Int)]
+listOfFramesxs=letys=listOfPointsxsinzip(0:ys)(zipWith(-)ys(0:ys))
+
+-- | Function that is used for decoding of the String
+-- Функція, яка використовується для декодування String
+changeToDecoded::String->String
+changeToDecoded(y:ys)|nullys=
+ify>='\x0063'
+thenify>='\x0074'
+thenify>='\x00A8'
+thenify>='\x00FC'
+thenify>='\x00FE'
+thencaseyof
+'\x00FE'->"\x20A4"
+'\x00FF'->"\x20B4"
+_->[y]
+elsecaseyof
+'\x00FC'->"\x20A2"
+'\x00FD'->"\x20A3"
+_->[y]
+elseify<='\x00B5'
+thencaseyof
+'\x00A8'->"\x2122"
+'\x00B5'->"\x20AC"
+_->[y]
+elsecaseyof
+'\x00FA'->"\x20A0"
+'\x00FB'->"\x20A1"
+_->[y]
+elseify<='\x0078'
+thenify>='\x0077'
+thencaseyof
+'\x0077'->"dĵ"
+'\x0078'->"vq"
+_->[y]
+elsecaseyof
+'\x0074'->"t"
+'\x0075'->"u"
+'\x0076'->"v"
+_->[y]
+elseify<='\x007A'
+thencaseyof
+'\x0079'->"y"
+'\x007A'->"z"
+_->[y]
+elsecaseyof
+'\x00A2'->"\x2109"
+'\x00A5'->"\x2103"
+_->[y]
+elseify<='\x006B'
+thenify>='\x0068'
+thenify>='\x006A'
+thencaseyof
+'\x006A'->"j"
+'\x006B'->"k"
+_->[y]
+elsecaseyof
+'\x0068'->"h"
+'\x0069'->"i"
+_->[y]
+elseify<='\x0065'
+thencaseyof
+'\x0063'->"c"
+'\x0064'->"d"
+'\x0065'->"e"
+_->[y]
+elsecaseyof
+'\x0066'->"f"
+'\x0067'->"g"
+_->[y]
+elseify<='\x006F'
+thenify>='\x006E'
+thencaseyof
+'\x006E'->"n"
+'\x006F'->"o"
+_->[y]
+elsecaseyof
+'\x006C'->"l"
+'\x006D'->"m"
+_->[y]
+elseify<='\x0071'
+thencaseyof
+'\x0070'->"p"
+'\x0071'->""
+_->[y]
+elsecaseyof
+'\x0072'->"r"
+'\x0073'->"s"
+_->[y]
+elseify<='\x0049'
+thenify>='\x0016'
+thenify>='\x0045'
+thenify>='\x0047'
+thencaseyof
+'\x0047'->"ja"
+'\x0049'->"ĉ"
+_->[y]
+elsecaseyof
+'\x0045'->"ĵ"
+'\x0046'->"je"
+_->[y]
+elseify<='\x0042'
+thencaseyof
+'\x0016'->"ŝĉq"
+'\x0041'->"γ"
+'\x0042'->"ŝ"
+_->[y]
+elsecaseyof
+'\x0043'->"ŝĉ"
+'\x0044'->"ji"
+_->[y]
+elseify<='\x0011'
+thenify>='\x0010'
+thencaseyof
+'\x0010'->"tq"
+'\x0011'->"fq"
+_->[y]
+elsecaseyof
+'\x0007'->"rq"
+'\x000C'->"sq"
+_->[y]
+elseify<='\x0013'
+thencaseyof
+'\x0012'->"hq"
+'\x0013'->"cq"
+_->[y]
+elsecaseyof
+'\x0014'->"ĉq"
+'\x0015'->"ŝq"
+_->[y]
+elseify<='\x0055'
+thenify>='\x0052'
+thenify>='\x0054'
+thencaseyof
+'\x0054'->"ĵ"
+'\x0055'->"zq"
+_->[y]
+elsecaseyof
+'\x0052'->"gq"
+'\x0053'->"dq"
+_->[y]
+elseify<='\x004F'
+thenify>='\x004D'
+thencaseyof
+'\x004D'->"\x2014"
+'\x004E'->"..."
+'\x004F'->"dz"
+_->[y]
+elsecaseyof
+'\x004A'->"ju"
+'\x004B'->""
+'\x004C'->"\x2013"
+_->[y]
+elsecaseyof
+'\x0050'->"dĵq"
+'\x0051'->"dzq"
+_->[y]
+elseify<='\x0059'
+thenify>='\x0058'
+thencaseyof
+'\x0058'->"mq"
+'\x0059'->"nq"
+_->[y]
+elsecaseyof
+'\x0056'->"kq"
+'\x0057'->"lq"
+_->[y]
+elseify<='\x005E'
+thencaseyof
+'\x005A'->"pq"
+'\x005E'->"bq"
+_->[y]
+elsecaseyof
+'\x0061'->"a"
+'\x0062'->"b"
+_->[y]
+|otherwise=
+letzyzs=ifheadzs`notElem`"aojue"
+then'q'
+else'j'in
+ify>='\x0063'
+thenify>='\x0074'
+thenify>='\x00A8'
+thenify>='\x00FC'
+thenify>='\x00FE'
+thencaseyof
+'\x00FE'->'\x20A4':changeToDecodedys
+'\x00FF'->'\x20B4':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x00FC'->'\x20A2':changeToDecodedys
+'\x00FD'->'\x20A3':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x00B5'
+thencaseyof
+'\x00A8'->'\x2122':changeToDecodedys
+'\x00B5'->'\x20AC':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x00FA'->'\x20A0':changeToDecodedys
+'\x00FB'->'\x20A1':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0078'
+thenify>='\x0077'
+thencaseyof
+'\x0077'->'d':'ĵ':changeToDecodedys
+'\x0078'->'v':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0074'->'t':changeToDecodedys
+'\x0075'->'u':changeToDecodedys
+'\x0076'->'v':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x007A'
+thencaseyof
+'\x0079'->'y':changeToDecodedys
+'\x007A'->'z':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x00A2'->'\x2109':changeToDecodedys
+'\x00A5'->'\x2103':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x006B'
+thenify>='\x0068'
+thenify>='\x006A'
+thencaseyof
+'\x006A'->'j':changeToDecodedys
+'\x006B'->'k':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0068'->'h':changeToDecodedys
+'\x0069'->'i':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0065'
+thencaseyof
+'\x0063'->'c':changeToDecodedys
+'\x0064'->'d':changeToDecodedys
+'\x0065'->'e':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0066'->'f':changeToDecodedys
+'\x0067'->'g':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x006F'
+thenify>='\x006E'
+thencaseyof
+'\x006E'->'n':changeToDecodedys
+'\x006F'->'o':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x006C'->'l':changeToDecodedys
+'\x006D'->'m':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0071'
+thencaseyof
+'\x0070'->'p':changeToDecodedys
+'\x0071'->changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0072'->'r':changeToDecodedys
+'\x0073'->'s':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0049'
+thenify>='\x0016'
+thenify>='\x0045'
+thenify>='\x0047'
+thencaseyof
+'\x0047'->'j':'a':changeToDecodedys
+'\x0049'->'ĉ':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0045'->'ĵ':changeToDecodedys
+'\x0046'->'j':'e':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0042'
+thencaseyof
+'\x0016'->'ŝ':'ĉ':zyys:changeToDecodedys
+'\x0041'->'γ':changeToDecodedys
+'\x0042'->'ŝ':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0043'->'ŝ':'ĉ':changeToDecodedys
+'\x0044'->'j':'i':changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0011'
+thenify>='\x0010'
+thencaseyof
+'\x0010'->'t':zyys:changeToDecodedys
+'\x0011'->'f':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0007'->'r':zyys:changeToDecodedys
+'\x000C'->'s':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0013'
+thencaseyof
+'\x0012'->'h':zyys:changeToDecodedys
+'\x0013'->'c':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0014'->'ĉ':zyys:changeToDecodedys
+'\x0015'->'ŝ':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0055'
+thenify>='\x0052'
+thenify>='\x0054'
+thencaseyof
+'\x0054'->'ĵ':changeToDecodedys
+'\x0055'->'z':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0052'->'g':zyys:changeToDecodedys
+'\x0053'->'d':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x004F'
+thencaseyof
+'\x004A'->'j':'u':changeToDecodedys
+'\x004B'->changeToDecodedys
+'\x004F'->'d':'z':changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0050'->'d':'ĵ':zyys:changeToDecodedys
+'\x0051'->'d':'z':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x0059'
+thenify>='\x0058'
+thencaseyof
+'\x0058'->'m':zyys:changeToDecodedys
+'\x0059'->'n':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0056'->'k':zyys:changeToDecodedys
+'\x0057'->'l':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elseify<='\x005E'
+thencaseyof
+'\x005A'->'p':zyys:changeToDecodedys
+'\x005E'->'b':zyys:changeToDecodedys
+_->y:changeToDecodedys
+elsecaseyof
+'\x0061'->'a':changeToDecodedys
+'\x0062'->'b':changeToDecodedys
+_->y:changeToDecodedys
+changeToDecoded_=[]
+
+-- | Additional function-predicate to check if its argument is a sound that converts to another language than the default Esperanto one
+-- Додаткова функція-предикат, щоб перевірити, чи її аргумент є звуком, що конверується до іншої мови, ніж звичайна есперанто
+continueLang::Char->Bool
+continueLangx=casexof
+'y'->False
+'γ'->False
+_->True
+
+-- | Function that divides a list of data of the type (String, Char) representing the Ukrainian consonants into two groups for further syllable constuction
+-- Функція, що ділить список даних типу (String, Char), що представляють українські приголосні, на дві групи для подальшого конструювання складів
+divideConsonants::[(C.ByteString,Char)]->[[(C.ByteString,Char)]]
+divideConsonantsxs=lety=lengthxsincaseyof
+1->[xs]
+2|(elem(snd.head$xs)"rq"&&headxs/=lastxs)||(elem(snd.head$xs)"di"&&elem(snd.head.tail$xs)"sa")->[[headxs],tailxs]
+|otherwise->[xs]
+3|(snd.head$xs)`elem`"rq"->[[headxs],tailxs]
+|(snd.head.tail$xs)`elem`"rq"->[[headxs,head.tail$xs],[lastxs]]
+|otherwise->[xs]
+_|(snd.head$xs)`elem`"rqdi"->[[headxs],tailxs]
+|otherwise->[xs]
+
+-- | Function that prepares a Ukrainian word to be divided into syllables
+-- Функція, що готує українське слово для поділу на склади
+prepareToSyllables::C.ByteString->[[(C.ByteString,Char)]]
+prepareToSyllablesxs=mapcreateSoundL(createSoundGroupsxs)
+
+-- | Additional list of the amount of parts to be taken to create syllables
+-- Додаткова список кількостей частин, які потрібно узяти, щоб створити склади
+listOfPoints::C.ByteString->[Int]
+listOfPointsxs=letcountSoundGroups=length.divideToListOfSoundGroupsAsLists$xsin
+letw1=fromIntegral.C.length.C.filterisVowelL$xsintakew1.map(amountOfPartsForKthSylxs)$[1..countSoundGroups]
+
+-- | Additional function that is used to divide a Ukrainian word into syllables, it creates a list of data of the type (String, Char)
+-- Додаткова функція, що використовується для поділу українського слова на склади, створює список даних типу (String, Char)
+createSoundL::C.ByteString->[(C.ByteString,Char)]
+createSoundLxs|C.nullxs=[]
+|otherwise=(createSoundLChar.C.head$xs):(createSoundL.C.tail$xs)
+
+-- | Additional function that is used to divide a Ukrainian word into syllables
+-- Додаткова функція, що використовується, щоб поділити українське слово на склади
+createSoundGroups::C.ByteString->[C.ByteString]
+createSoundGroups=C.groupByisSimilar
+
+-- | Additional function to find out the amount of parts to be taken for the k-th syllable
+-- Додаткова функція, щоб визначити, яку кількість частин потрібно взяти для k-го складу
+amountOfPartsForKthSyl::C.ByteString->Int->Int
+amountOfPartsForKthSylxsk=letu=length.divideToListOfSoundGroupsAsLists$xsinletw=mapLSxs[1..u]inlett=length.takeWhile(==k).dropWhile(<k)$win
+letw2=toInteger.C.length.C.filterisVowelL$xsinifw2==1
+thenu
+-- Multisyllable word
+elsecasetof
+3->iftoIntegerk<w2
+-- There is a next vowel in the word
+then(length.takeWhile(<=k)$w)-1
+elseu
+2->iftoIntegerk<w2
+-- There is a next vowel in the word
+then(length.takeWhile(<=k)$w)-1
+elseu
+_->iftoIntegerk<w2
+thenlength.takeWhile(<=k)$w
+elseu
+
+-- | Function that converts encoded Char into a tuple (ByteString, Char) for further usage in syllable segmentation
+-- Функція, що конвертує кодований символ у кортеж (ByteString, Char) для подальшого використання у поділі на склади
+createSoundLChar::Char->(C.ByteString,Char)
+createSoundLCharx=(C.singletonx,y)
+wherey|isVowelLx='w'
+|x<='\x005A'=ifx>='\x0045'
+thenifx>='\x0056'
+thenifx>='\x0057'&&x<='\x0059'
+then'q'
+elsecasexof
+'\x0056'->'a'
+'\x005A'->'a'
+_->'0'
+elseifx<='\x0049'
+thencasexof
+'\x0045'->'d'
+'\x0049'->'s'
+_->'0'
+elseifx>='\x0050'
+then'i'
+elsecasexof
+'\x004F'->'d'
+_->'0'
+elseifx>='\x0014'
+thenifx>='\x0042'
+thencasexof
+'\x0042'->'s'
+'\x0043'->'s'
+_->'0'
+elseifx<='\x0016'
+then'a'
+elsecasexof
+'\x0041'->'d'
+_->'0'
+elseifx>='\x0010'
+thenifx<='\x0012'
+then'a'
+elsecasexof
+'\x0013'->'i'
+_->'0'
+elsecasexof
+'\x0007'->'q'
+'\x000C'->'a'
+_->'0'
+|x>='\x005E'=ifx>='\x0070'
+thenifx>='\x0077'
+thencasexof
+'\x0077'->'d'
+'\x0078'->'q'
+'\x007A'->'d'
+_->'0'
+elseifx<='\x0072'
+thencasexof
+'\x0070'->'s'
+'\x0072'->'r'
+_->'0'
+elseifx=='\x0073'||x=='\x0074'
+then's'
+elsecasexof
+'\x0076'->'r'
+_->'0'
+elseifx<='\x0067'
+thenifx<='\x0064'
+thenifx>='\x0062'
+then'd'
+elsecasexof
+'\x005E'->'i'
+_->'0'
+elsecasexof
+'\x0066'->'s'
+'\x0067'->'d'
+_->'0'
+elseifx<='\x006A'
+thencasexof
+'\x0068'->'s'
+'\x006A'->'r'
+_->'0'
+elseifx>='\x006C'&&x<='\x006E'
+then'r'
+elsecasexof
+'\x006B'->'s'
+_->'0'
+|otherwise='0'
+
+-- | Function that checks whether its arguments are both consonants
+-- Функція, що перевіряє, чи є обидва її аргументи приголосні
+isSimilar::Char->Char->Bool
+isSimilarxy=isConsonantLx&&isConsonantLy
+
+-- | Function-predicate to check whether its argument is a consonant
+-- Функція-предикат, яка перевіряє, чи є її аргумент приголосним
+isConsonantL::Char->Bool
+isConsonantLx|x<='\x005E'=ifx<='\x0043'
+thenifx<='\x0043'
+then(x>='\x0010'&&x<='\x0016')||x>='\x0041'
+elsex=='\x0007'||x=='\x000C'
+elseifx>='\x004F'
+thenx<='\x005A'
+elsex=='\x005E'||(x=='\x0045'||x=='\x0049')
+|otherwise=
+ifx>='\x0070'
+then(x>='\x0070'&&x<='\x0078'&&x/='\x0075')||x=='\x007A'
+else(x>='\x0062'&&x<='\x0068'&&x/='\x0065')||(x>='\x006B'&&x<='\x006E')
+
+-- | Function to create a list of Int that is used for dividing into syllables for words with one or more vowels
+-- Функція, щоб створити список Int, який використовується для поділу на склади для слів з одним чи більше голосним
+mapLS::C.ByteString->[Int]->[Int]
+mapLSxsks=letzss=divideToListOfSoundGroupsAsListsxsinmap(\x->sum1(map((=='w').snd)$concat$takexzss)$!0)ks
+wheresum1ysaccum|not.null$ys=ifheadysthensum1(tailys)$!(accum+1)elsesum1(tailys)accum
+|otherwise=accum
+
\ No newline at end of file
diff --git a/dist/setup-config b/dist/setup-config
index 92856ab..1a90ba6 100644
Binary files a/dist/setup-config and b/dist/setup-config differ
diff --git a/mm1.cabal b/mm1.cabal
index 0ac8e6c..f29d4c7 100644
--- a/mm1.cabal
+++ b/mm1.cabal
@@ -2,7 +2,7 @@
-- see http://haskell.org/cabal/users-guide/
name: mm1
-version: 0.3.3.0
+version: 0.3.4.0
synopsis: Program that reads Ukrainian text using eSpeak and SoX.
-- description:
homepage: oleksandrzhabenko.github.io/mm1