update

[julm/worksheets.git] / tests / Language / FrenchSpec.hs

{-# LANGUAGE OverloadedLists #-}
{-# LANGUAGE OverloadedStrings #-}

module Language.FrenchSpec where

import Data.ByteString.Builder qualified as ByteString.Builder
import Data.Char qualified as Char
import Data.GenValidity.Map ()
import Data.GenValidity.Sequence ()
import Data.GenValidity.Set ()
import Data.GenValidity.Text ()
import Data.List qualified as List
import Data.Map.Strict qualified as Map
import Data.Set qualified as Set
import Data.Text qualified as Text
import Data.Text.Encoding qualified as Text
import Data.Text.Lazy.Encoding qualified as Text.Lazy
import Data.Text.Short qualified as ShortText
import Data.Validity.Map ()
import Data.Validity.Set ()
import Data.Validity.Text ()
import Language
import Language.French qualified as French
import Language.Pronunciation (ExampleLiteral (..), Lexeme (..), Rule (..), RuleLexemes, after, before, begining, ending, meaning, occurence, rule, silent, word)
import Language.Pronunciation qualified as Pron
import Paths_worksheets qualified as Self
import System.Directory qualified as IO
import System.FilePath (joinPath, pathSeparator, (<.>), (</>))
import System.FilePath.Posix qualified as File
import System.IO qualified as IO
import Test.Syd
import Text.Blaze.Html5.Attributes qualified as HA
import Utils.Pronunciation qualified as Pron
import Utils.Tests
import Wiktionary qualified
import Worksheets.Utils.HTML (Html, className, classes, cm, styles, (!))
import Worksheets.Utils.HTML qualified as HTML
import Worksheets.Utils.IPA qualified as IPA
import Worksheets.Utils.Paper qualified as Paper
import Worksheets.Utils.Prelude
import Worksheets.Utils.SQL qualified as SQL
import Prelude (error, even, mod)

{-
instance IsString Rule where
  fromString s = rule {ruleLexemes = fromString s}
  [ ful "de" := single "də" ["de" & occurence]
  , inf "'" := single "" []
  , inf "-" := single "" []
  , inf "," := single "" []
  , inf "?" := single "" []
  , inf "!" := single "" []
  , inf borderLeftText := single "" []
  , inf borderRightText := single "" []

  , inf "demi" := single "dəmi" ["demi" & occurence]
  , -- , inf "amb" := single "ɑ̃b" ["amb" & occurence, "ulance"]
    -- , inf "amp" := single "ɑ̃p" ["amp" & occurence, "oule"]
    -- , inf "amph" := single "ɑ̃f" ["amph" & occurence, "ithéâtre"]
    -- , inf "an" := multi
    --    [ [PronContextBeforeBorder] := LexemePron{lexemePronunciation="ɑ̃", lexemeExample=["pl", "an" & occurence]}
    --    , [PronContextBeforeAnyVowel] := LexemePron{lexemePronunciation="an", lexemeExample=["an" & occurence, "imal"]}
    --    , [PronContextBeforeAny] := LexemePron{lexemePronunciation="ɑ̃", lexemeExample=["an" & occurence, "tilope"]}
    --    ]
  , -- , inf "coin" := single "kwɛ̃" ["coin" & occurence, "cer"]

  , -- , inf "im"
    --    := multi
    --      [ [PronContextBeforeBorder] := LexemePron{lexemePronunciation = "", lexemeExample = }
    --      , [PronContextBeforeAnyVowel] := LexemePron{lexemePronunciation = "im", lexemeExample = ["im" & occurence, "ortel"]}
    --      , [PronContextBeforeAny] := LexemePron{lexemePronunciation = "ɛ̃", lexemeExample = ["im" & occurence, "primer"]}
    --      ]
  , -- , inf "in" := single "ɛ̃" ["merl", "in" & occurence]
    -- , inf "ina" := single "ina" ["ord", "ina" & occurence, "teur"]
    -- , inf "ine" := single "in" ["rout", "ine" & occurence]
    -- , inf "inent" := single "in" ["dess", "inent" & occurence]
    -- , inf "iner" := single "inɛʁ" ["iner" & occurence, "tie"]
    -- , inf "inex" := single "inɛgz" ["inex" & occurence, "istant"]
    -- , inf "inexp" := single "inɛksp" ["inexp" & occurence, "licable"]
    -- , inf "inima" := single "inima" ["inima" & occurence, "ginable"]
    -- , inf "inimi" := single "inimi" ["inimi" & occurence, "table"]
    -- , inf "inimp" := single "inimp" ["inimp" & occurence, "ortant"]
    -- , inf "ininf" := single "inɛ̃" ["ininf" & occurence, "lammation"]
    -- , inf "inint" := single "inɛ̃t" ["inint" & occurence, "éressant"]
    -- , inf "inn" := single "in" ["inn" & occurence, "ocent"]
    -- , inf "ino" := single "ino" ["ino" & occurence, "dore"]
    -- , inf "inu" := single "inu" ["inu" & occurence, "tile"]
    -- , inf "ix" := single "iks" ["phén", "ix" & occurence]
    -- , inf "gine" := single "ʒin" ["an", "gine" & occurence]
  -- , inf "era" := single "əʁa" ["s", "era" & occurence]
  -- , inf "erai" := single "əʁɛ" ["s", "erai" & occurence]
  , inf "era" :=
      multi
        [ [PronContextBeforeAnyVowel] := LexemePron{lexemePronunciation = "əʁ", lexemeExample = ["mer" & occurence, "ingue"]}
        , [PronContextBeforeAny] := LexemePron{lexemePronunciation = "ɛʁ", lexemeExample = ["mer" & occurence, "le"]}
        ]
  , inf "erin" := single "əʁɛ̃" ["m", "erin" & occurence, "gue"]
  , inf "s" :=
      multi
        [ [PronContextBeforeAnyVowel] := LexemePron{lexemePronunciation = "z", lexemeExample = ["ti", "s" & occurence, "ane"]}
        , [PronContextBeforeAnySemiVowel] := LexemePron{lexemePronunciation = "z", lexemeExample = ["pari", "s" & occurence, "ienne"]}
        , [PronContextBeforeAny] := LexemePron{lexemePronunciation = "s", lexemeExample = ["s", "a" & occurence]}
        ]
  , -- , inf "shirt" := single "ʃœʁt" ["shirt" & occurence]
  , -- , inf "teau" := single "to" ["teau" & occurence]
    -- , inf "ti" := single "ti" ["ti" & occurence, "gre"]
  , pre "ukulele" := single "jukulele" ["ukulele" & occurence]
  , -- , inf "ui" := single "ɥi" ["ling", "ui" & occurence, "stique"]
  , pre "abrivent" := single "abʁivɑ̃" ["abrivent" & occurence]
  , pre "adjuvent" := single "adʒyvɑ̃" ["adjuvent" & occurence]
  , pre "antivent" := single "ɑ̃tivɑ̃" ["antivent" & occurence]
  , pre "auvent" := single "ovɑ̃" ["auvent" & occurence]
  , pre "avent" := single "avɑ̃" ["avent" & occurence]
  , pre "aï" := single "ai" ["c", "aï" & occurence, "man"]
  , pre "bavent" := single "bavɑ̃" ["bavent" & occurence]
  , pre "boutavent" := single "butavɑ̃" ["boutavent" & occurence]
  , pre "bouvent" := single "buvɑ̃" ["bouvent" & occurence]
  , pre "bénévent" := single "benevɑ̃" ["bénévent" & occurence]
  , pre "connivent" := single "konivɑ̃" ["connivenr" & occurence]
  , pre "contrevent" := single "kɔ̃tʁəvɑ̃" ["contrevent" & occurence]
  , pre "convent" := single "kɔ̃vɑ̃" ["convent" & occurence]
  , pre "couvent" := single "kuvɑ̃" ["couvent" & occurence]
  , pre "couvents" := single "kuvɑ̃" ["couvents" & occurence]
  , pre "engoulevent" := single "ɑ̃gulvɑ̃" ["engoulevent" & occurence]
  , pre "fervent" := single "fɛʁvɑ̃" ["fervent" & occurence]
  , pre "frévent" := single "fʁevɑ̃" ["frévent" & occurence]
  , pre "heurtevent" := single "œʁtəvɑ̃" ["heurtevent" & occurence]
  , pre "her" := single "ɛʁ" ["her" & occurence, "be"]
  , pre "hi" := single "i" ["hi" & occurence, "ver"]
  , pre "ill" := single "il" ["ill" & occurence, "étrisme"]
  , pre "jack" := single "dʒak" ["jack" & occurence]
  , pre "jazz" := single "dʒaz" ["jazz" & occurence]
  , pre "montsurvent" := single "mɔ̃syʁvɑ̃" ["montsurvent" & occurence]
  , -- , pre "ni" := single "ni" ["ni" & occurence, "ais"]
    pre "niai" := single "njɛ" ["niai" & occurence, "s"]
  , pre "paravent" := single "paʁavɑ̃" ["paravent" & occurence]
  , pre "sen" :=
      multi
        [ [PronContextBeforeAny] := LexemePron{lexemePronunciation = "sɑ̃", lexemeExample = ["sen" & occurence, "t"]}
        , [PronContextBeforeAnyVowel] := LexemePron{lexemePronunciation = "sen", lexemeExample = ["sen" & occurence, "a"]}
        -- , inf "a" := LexemePron{lexemePronunciation="sen", lexemeExample=["sen" & occurence, "a"]}
        -- , inf "e" := LexemePron{lexemePronunciation="sən", lexemeExample=["sen" & occurence, "estre"]}
        -- , inf "i" := LexemePron{lexemePronunciation="sen", lexemeExample=["sen" & occurence, "ior"]}
        -- , inf "o" := LexemePron{lexemePronunciation="sen", lexemeExample=["Sen" & occurence, "oueix"]}
        -- , inf "u" := LexemePron{lexemePronunciation="sen", lexemeExample=[]}
        ]
  , pre "souvent" := single "suvɑ̃" ["souvent" & occurence]
  , pre "taillevent" := single "tɑjvɑ̃" ["taillevent" & occurence]
  , pre "tournevent" := single "tuʁnəvɑ̃" ["tournevent" & occurence]
  , pre "vent" := single "vɑ̃" ["vent" & occurence]
  , pre "virevent" := single "viʁvɑ̃" ["virevent" & occurence]
  , pre "volvent" := single "vɔlvɑ̃" ["volvent" & occurence]
  , pre "évent" := single "evɑ̃" ["évent" & occurence]
  , pre "œ" := single "œ" ["œ" & occurence, "uf"]
  , pre "fier" := single "fjɛʁ" ["fier" & occurence]
  , pre "tier" := single "tjɛʁ" ["tier" & occurence]

  ]
    & list
    & foldMap (\(ks, v) -> [(k, v) | k <- ks])
    & mapFromListCheckingDuplicates
  where
    single pron exs =
      Map.singleton PronContextBeforeAny $ LexemePron{lexemePronunciation = pron, lexemeExample = exs}
    multi l =
      l
        & list
        & foldMap (\(ks, v) -> [(k, v) | k <- ks])
        & mapFromListCheckingDuplicates
-}

spec :: HasCallStack => Spec
spec = do
  -- Pron.lexerRender $ French.pronunciationDict
  describe "pronunciation" do
    -- describe "decomposition" do
    --  forM_ sentences \sentence ->
    --    Pron.pronunciationDecompositionTest French.pronunciationDict $ sentence & Text.unpack
    -- describe "result" do
    --  forM_ sentences \sentence ->
    --    Pron.pronunciationResultTest French.pronunciationDict $ sentence & Text.unpack
    describe "parser" do
      Pron.pronunciationParserTest pronunciationRules sentences

{-
withoutRetries do
  withoutTimeout do
    around (\k -> SQL.withConnection "data/langs/français/kaikki/wiktionary=fr.lang=fr.sqlite3" k) do
      outDB <- goldenPath "wiktionary" "sqlite"
      outDBExists <- IO.doesFileExist outDB & liftIO
      when (outDBExists) do
        IO.removeFile outDB & liftIO
      aroundWith
        ( \k wiktConn -> do
            SQL.withConnection outDB \outConn ->
              k (wiktConn, outConn)
        )
        do
          it "check-against-wiktionary" \(wiktConn, outConn) -> do
            SQL.execute_ outConn $ "PRAGMA journal_mode = OFF"
            SQL.execute_ outConn $ "PRAGMA synchronous = OFF"
            SQL.execute_ outConn $ "CREATE TABLE IF NOT EXISTS results (exprLit TEXT NON NULL, wiktBroad TEXT NON NULL, wiktBroadSegments TEXT NON NULL, synthBroad TEXT NON NULL, synthExplain TEXT NON NULL)"
            SQL.execute_ outConn $ "CREATE INDEX results__exprLit ON results (exprLit);"
            SQL.execute_ outConn $ "CREATE INDEX results__wiktBroad ON results (wiktBroad);"
            SQL.execute_ outConn $ "CREATE INDEX results__synthBroad ON results (synthBroad);"
            SQL.execute_ outConn $ "CREATE TABLE IF NOT EXISTS errors (exprId INTEGER NON NULL, exprLit TEXT NON NULL, error TEXT NON NULL)"
            SQL.fold
              wiktConn
              "SELECT id,word,sounds FROM wiktionary WHERE lang_code='fr' LIMIT 1000"
              ()
              (1 :: Int)
              \ !i
                ( exprId :: Int
                  , maybeWord :: Maybe Text
                  , sounds :: [Wiktionary.Sound]
                  ) -> do
                  case maybeWord of
                    Nothing -> return ()
                    Just exprLit ->
                      case exprLit & Pron.run French.pronunciationRules of
                        Left err -> do
                          SQL.execute
                            outConn
                            "INSERT INTO errors (exprId, exprLit, error) VALUES (?,?,?)"
                            ( exprId
                            , exprLit
                            , err & pShowNoColor
                            )
                        Right lexemes -> do
                          let synthExplain = lexemes <&> (\Pron.Pron{pronInput, pronRule} -> Pron.chars pronInput <> " → " <> show (Pron.rulePron pronRule)) & List.intercalate "; "
                          let synthBroad = lexemes & foldMap (Pron.pronRule >>> Pron.rulePron >>> Pron.pronunciationText)
                          forM_ sounds \Wiktionary.Sound{..} -> do
                            -- IO.hPrint IO.stderr (i, ident::Int, maybeWord)
                            case sound_ipa of
                              Just (IPA.IPAPhons exprIPAs) -> do
                                forM_ exprIPAs \case
                                  IPA.IPAPhonemic exprBroad -> do
                                    when (i `mod` 5000 == 0) do
                                      IO.hPrint IO.stderr (i, exprLit, exprBroad)
                                    SQL.execute
                                      outConn
                                      "INSERT INTO results(exprLit, wiktBroad, wiktBroadSegments, synthBroad, synthExplain) VALUES(?,?,?,?,?);"
                                      ( exprLit
                                      , exprBroad & IPA.ipaWordsToText Nothing
                                      , exprBroad & IPA.dropSupraSegmentalFeatures & IPA.ipaWordsToText Nothing
                                      , synthBroad
                                      , synthExplain
                                      ) -- & traceShowId
                                  IPA.IPAPhonError (_errMsg, _err) -> return ()
                                  _ -> return ()
                              _ -> return ()
                  return (i + 1)
            return @IO ()
-}

{-
mangleSupraSegmentalFeatures :: [IPA.Syllable []] -> [[IPA.Segment]]
mangleSupraSegmentalFeatures = \case
  [] -> []
  IPA.Syllable syl : ts -> syl : mangleSupraSegmentalFeatures ts
  IPA.WithSuprasegmentalFeature IPA.Linking syl : ts ->
    case mangleSupraSegmentalFeatures ts of
      [] -> [dropSupraSegmentalFeatures syl]
      x : xs -> (dropSupraSegmentalFeatures syl <> x) : xs
  IPA.WithSuprasegmentalFeature _feat syl : xs ->
    mangleSupraSegmentalFeatures (syl : xs)
-}

-- cardsHtml "syllabes" $ French.syllablesTable & French.syllablesTableToHTML

sentences :: Map Pron.InputLexemes Pron.Pronunciation
sentences =
  [ -- [ ["aiguille"]
    -- , ["ail"]
    -- , ["aimer"]
    -- , ["ampoules"]
    -- , ["couvent"{exampleLiteralMeaning = "couver"}]
    -- , ["couvent"{exampleLiteralMeaning = "monastère"}]
    -- , ["papillon"]
    -- ] :: [[]]
    pronunciationRules
      & Pron.examples
  ]
    & list
    & Map.unionsWith (curry errorShow)
pronunciationRules :: Pron.Table
pronunciationRules =
  [ "Escherichia" := Rule{rulePron = ["E" := "ɛ", "sche" := "ʃe", "ri" := "ʁi", "chia" := "ʃja"], ruleExamples = ["Escherichia" := "ɛ.ʃe.ʁi.ʃja"]}
  , "Maël" := Rule{rulePron = ["ma" := "ma", "ël" := "ɛl"], ruleExamples = ["Maël" := "ma.ɛl"]}
  , "a" := Rule{rulePron = ["a" := "a"], ruleExamples = ["allume" := "a.lym"]}
  , "au" := Rule{rulePron = ["au" := "o"], ruleExamples = ["au" := "o"]}
  , "à" := Rule{rulePron = ["à" := "a"], ruleExamples = ["à" := "a"]}
  , "arc" := Rule{rulePron = ["arc" := "aʁk"], ruleExamples = ["arc" := "aʁk"]}
  , word "l" := Rule{rulePron = ["l" := "l"], ruleExamples = ["l" := "l"]}
  , "ancrage" := Rule{rulePron = ["an" := "ɑ̃", "crage" := "kʁaʒ"], ruleExamples = ["ancrage" := "ɑ̃.kʁaʒ"]}
  , "ancre" := Rule{rulePron = ["ancre" := "ɑ̃kʁ"], ruleExamples = ["ancre" := "ɑ̃kʁ"]}
  , "ba" := Rule{rulePron = ["ba" := "ba"], ruleExamples = ["bateau" := "ba.to"]}
  , "bi" := Rule{rulePron = ["bi" := "bi"], ruleExamples = ["biberon" := "bi.bə.ʁɔ̃"]}
  , "be" := Rule{rulePron = ["be" := "bə"], ruleExamples = ["biberon" := "bi.bə.ʁɔ̃"]}
  , "bam" <> [LexemeConsonant] := Rule{rulePron = ["bam" <> [LexemeConsonant] := "bɑ̃"], ruleExamples = ["bambi" := "bɑ̃.bi"]}
  , "bal" := Rule{rulePron = ["bal" := "bal"], ruleExamples = ["bal" := "bal"]}
  , "balle" := Rule{rulePron = ["balle" := "bal"], ruleExamples = ["balle" := "bal"]}
  , "bain" := Rule{rulePron = ["bain" := "bɛ̃"], ruleExamples = ["bain" := "bɛ̃"]}
  , "bile" := Rule{rulePron = ["bile" := "bil"], ruleExamples = ["immobile" := "i.mɔ.bil"]}
  , "bo" := Rule{rulePron = ["bo" := "bɔ"], ruleExamples = ["bobo" := "bɔ.bo"]}
  , "boi" := Rule{rulePron = ["boi" := "bwa"], ruleExamples = ["boit" := "bwa"]}
  , "boué" := Rule{rulePron = ["boué" := "bwe"], ruleExamples = ["boué" := "bwe"]}
  , "bra" := Rule{rulePron = ["bra" := "bʁa"], ruleExamples = ["braguette" := "bʁa.gɛt"]}
  , "brachio" := Rule{rulePron = ["bra" := "bʁa", "chio" := "kjo"], ruleExamples = ["brachiosaure" := "bʁa.kjo.zɔʁ"]}
  , "guette" := Rule{rulePron = ["guette" := "gɛt"], ruleExamples = ["braguette" := "bʁa.gɛt"]}
  , "bri" := Rule{rulePron = ["bri" := "bʁi"], ruleExamples = ["sabrina" := "sa.bʁi.na"]}
  , "brou" := Rule{rulePron = ["brou" := "bʁu"], ruleExamples = ["brouette" := "bʁu.ɛt"]}
  , "ca" := Rule{rulePron = ["ca" := "ka"], ruleExamples = ["calla" := "ka.la"]}
  , "cha" := Rule{rulePron = ["cha" := "ʃa"], ruleExamples = ["chamotté" := "ʃa.mɔ.te"]}
  , "cham" <> [LexemeConsonant] := Rule{rulePron = ["cham" := "ʃɑ̃"], ruleExamples = ["champignon" := "ʃɑ̃.pi.ɲɔ̃"]}
  , "chon" := Rule{rulePron = ["chon" := "ʃɔ̃"], ruleExamples = ["cochon" := "kɔ.ʃɔ̃"]}
  , "ron" := Rule{rulePron = ["ron" := "ʁɔ̃"], ruleExamples = ["biberon" := "bi.bə.ʁɔ̃"]}
  , "rap" := Rule{rulePron = ["rap" := "ʁap"], ruleExamples = ["raptor" := "ʁap.tɔʁ"]}
  , "chry" := Rule{rulePron = ["chry" := "kʁi"], ruleExamples = ["chrysanthème" := "kʁi.zɑ̃.tɛm"]}
  , "ci" := Rule{rulePron = ["ci" := "si"], ruleExamples = ["mucidule" := "my.si.dyl"]}
  , "cla" := Rule{rulePron = ["cla" := "kla"], ruleExamples = ["éclat" := "e.kla"]}
  , "clate" := Rule{rulePron = ["clate" := "klat"], ruleExamples = ["éclate" := "e.klat"]}
  , "clatent" := Rule{rulePron = ["clatent" := "klat"], ruleExamples = ["éclatent" := "e.klat"]}
  , "cinthe" := Rule{rulePron = ["cinthe" := "sɛ̃t"], ruleExamples = ["jacinthe" := "ʒa.sɛ̃t"]}
  , "co" := Rule{rulePron = ["co" := "kɔ"], ruleExamples = ["cochon" := "kɔ.ʃɔ̃"]}
  , "diplodocus" := Rule{rulePron = ["di" := "di", "plo" := "plɔ", "do" := "dɔ", "cus" := "kys"], ruleExamples = ["diplodocus" := "di.plɔ.dɔ.kys"]}
  , "di" := Rule{rulePron = ["di" := "di"], ruleExamples = ["diplodocus" := "di.plɔ.dɔ.kys"]}
  , "de" := Rule{rulePron = ["de" := "də"], ruleExamples = ["demi" := "də.mi"]}
  , "deau" := Rule{rulePron = ["deau" := "do"], ruleExamples = ["rideau" := "ʁi.do"]}
  , "dent" := Rule{rulePron = ["dent" := "dɑ̃"], ruleExamples = ["dent" := "dɑ̃"]}
  , "deuil" := Rule{rulePron = ["deuil" := "dœj"], ruleExamples = ["deuil" := "dœj"]}
  , "do" := Rule{rulePron = ["do" := "dɔ"], ruleExamples = ["doré" := "dɔ.ʁe"]}
  , "don" := Rule{rulePron = ["don" := "dɔ̃"], ruleExamples = ["don" := "dɔ̃"]}
  , "drai" := Rule{rulePron = ["drai" := "dʁɛ"], ruleExamples = ["draisienne" := "dʁɛ.zjɛn"]}
  , "du" := Rule{rulePron = ["du" := "dy"], ruleExamples = ["du" := "dy"]}
  , "dule" := Rule{rulePron = ["dule" := "dyl"], ruleExamples = ["mucidule" := "my.si.dyl"]}
  , "an" <> [LexemeConsonant] := Rule{rulePron = ["an" <> [LexemeConsonant] := "ɑ̃"], ruleExamples = ["an" := "ɑ̃"]}
  , "en" <> [LexemeConsonant] := Rule{rulePron = ["en" <> [LexemeConsonant] := "ɑ̃"], ruleExamples = ["en" := "ɑ̃"]}
  , word "an" := Rule{rulePron = ["an" := "ɑ̃"], ruleExamples = ["an" := "ɑ̃"]}
  , word "ans" := Rule{rulePron = ["ans" := "ɑ̃"], ruleExamples = ["ans" := "ɑ̃"]}
  , word "en" := Rule{rulePron = ["en" := "ɑ̃"], ruleExamples = ["en" := "ɑ̃"]}
  , "ette" := Rule{rulePron = ["ette" := "ɛt"], ruleExamples = ["brouette" := "bʁu.ɛt"]}
  , ending "blanc" := Rule{rulePron = [ending "blanc" := "blɑ̃"], ruleExamples = ["blanc" := "blɑ̃"]}
  , "blanche" := Rule{rulePron = ["blanche" := "blɑ̃ʃ"], ruleExamples = ["blanche" := "blɑ̃ʃ"]}
  , "blan" <> [LexemeConsonant] := Rule{rulePron = ["blan" <> [LexemeConsonant] := "blɑ̃"], ruleExamples = ["blanc" := "blɑ̃"]}
  , "che" := Rule{rulePron = ["che" := "ʃə"], ruleExamples = ["cheval" := "ʃə.val"]}
  , "val" := Rule{rulePron = ["val" := "val"], ruleExamples = ["cheval" := "ʃə.val"]}
  , "fait" := Rule{rulePron = ["fait" := "fɛ"], ruleExamples = ["fait" := "fɛ"]}
  , "fa" <> [LexemeConsonant] := Rule{rulePron = ["fa" <> [LexemeConsonant] := "fa"], ruleExamples = ["famille" := "fa.mij"]}
  , "ffa" <> [LexemeConsonant] := Rule{rulePron = ["ffa" <> [LexemeConsonant] := "fa"], ruleExamples = ["giraffatitan" := "ʒi.ʁa.fa.ti.tɑ̃"]}
  , "da" <> [LexemeConsonant] := Rule{rulePron = ["da" <> [LexemeConsonant] := "da"], ruleExamples = ["mandarine" := "mɑ̃.da.ʁin"]}
  , "gin" <> [LexemeConsonant] := Rule{rulePron = ["gin" := "ʒɛ̃"], ruleExamples = ["gingembre" := "ʒɛ̃.ʒɑ̃bʁ"]}
  , "gembre" := Rule{rulePron = ["gembre" := "ʒɑ̃bʁ"], ruleExamples = ["gingembre" := "ʒɛ̃.ʒɑ̃bʁ"]}
  , "mille" := Rule{rulePron = ["mille" := "mij"], ruleExamples = ["famille" := "fa.mij"]}
  , "man" <> [LexemeConsonant] := Rule{rulePron = ["man" <> [LexemeConsonant] := "mɑ̃"], ruleExamples = ["mandarine" := "mɑ̃.da.ʁin"]}
  , "fram" <> [LexemeConsonant] := Rule{rulePron = ["fram" <> [LexemeConsonant] := "fʁɑ̃"], ruleExamples = ["framboise" := "fʁɑ̃.bwaz"]}
  , "boise" := Rule{rulePron = ["boise" := "bwaz"], ruleExamples = ["framboise" := "fʁɑ̃.bwaz"]}
  , "hibiscus" := Rule{rulePron = ["hi" := "i", "bis" := "bis", "cus" := "kys"], ruleExamples = ["hibiscus" := "i.bis.kys"]}
  , word "mille" := Rule{rulePron = [word "mille" := "mil"], ruleExamples = ["mille" := "mil"]}
  , "feu" := Rule{rulePron = ["feu" := "fø"], ruleExamples = ["feu" := "fø"]}
  , "four" := Rule{rulePron = ["four" := "fuʁ"], ruleExamples = ["four" := "fuʁ"]}
  , "feuille" := Rule{rulePron = ["feuille" := "fœj"], ruleExamples = ["feuille" := "fœj"]}
  , "font" := Rule{rulePron = ["font" := "fɔ̃"], ruleExamples = ["font" := "fɔ̃"]}
  , "fraise" := Rule{rulePron = ["fraise" := "fʁɛz"], ruleExamples = ["fraise" := "fʁɛz"]}
  , "ga" := Rule{rulePron = ["ga" := "ga"], ruleExamples = ["alligator" := "a.li.ga.tɔʁ"]}
  , "ge" := Rule{rulePron = ["ge" := "ʒə"], ruleExamples = ["gelée" := "ʒə.le"]}
  , "grue" := Rule{rulePron = ["grue" := "gʁy"], ruleExamples = ["grue" := "gʁy"]}
  , "sque" := Rule{rulePron = ["sque" := "skə"], ruleExamples = ["squelette" := "skə.lɛt"]}
  , "lette" := Rule{rulePron = ["lette" := "lɛt"], ruleExamples = ["squelette" := "skə.lɛt"]}
  , "geoir" := Rule{rulePron = ["geoir" := "ʒwaʁ"], ruleExamples = ["plongeoir" := "plɔ̃.ʒwaʁ"]}
  , "geur" := Rule{rulePron = ["geur" := "ʒœʁ"], ruleExamples = ["nageur" := "na.ʒœʁ"]}
  , "geuse" := Rule{rulePron = ["geuse" := "ʒøz"], ruleExamples = ["nageuse" := "na.ʒøz"]}
  , "gi" <> [LexemeConsonant] := Rule{rulePron = ["gi" <> [LexemeConsonant] := "ʒi"], ruleExamples = ["gilet" := "ʒi.lɛ"]}
  , "glace" := Rule{rulePron = ["glace" := "glas"], ruleExamples = ["glace" := "glas"]}
  , "gnon" := Rule{rulePron = ["gnon" := "ɲɔ̃"], ruleExamples = ["champignon" := "ʃɑ̃.pi.ɲɔ̃"]}
  , "gou" := Rule{rulePron = ["gou" := "gu"], ruleExamples = ["gouttière" := "gu.tjɛʁ"]}
  , "gue" := Rule{rulePron = ["gue" := "gə"], ruleExamples = ["marguerite" := "maʁ.gə.ʁit"]}
  , "gâ" := Rule{rulePron = ["gâ" := "ga"], ruleExamples = ["gâté" := "ga.te"]}
  , "gé" := Rule{rulePron = ["gé" := "ʒe"], ruleExamples = ["orangé" := "ɔ.ʁɑ̃.ʒe"]}
  , "gée" := Rule{rulePron = ["gée" := "ʒe"], ruleExamples = ["orangée" := "ɔ.ʁɑ̃.ʒe"]}
  , "hi" := Rule{rulePron = ["hi" := "i"], ruleExamples = ["hippopotame" := "i.pɔ.pɔ.tam"]}
  , "ppo" := Rule{rulePron = ["ppo" := "pɔ"], ruleExamples = ["hippopotame" := "i.pɔ.pɔ.tam"]}
  , "tame" := Rule{rulePron = ["tame" := "tam"], ruleExamples = ["hippopotame" := "i.pɔ.pɔ.tam"]}
  , "ho" := Rule{rulePron = ["ho" := "o"], ruleExamples = ["homo" := "o.mo"]}
  , "hêtre" := Rule{rulePron = ["hêtre" := "ɛtʁ"], ruleExamples = ["hêtre" := "ɛtʁ"]}
  , "é" := Rule{rulePron = ["é" := "e"], ruleExamples = ["éclat" := "e.kla"]}
  , "i" := Rule{rulePron = ["i" := "i"], ruleExamples = ["ibis" := "i.bis"]}
  , "illet" := Rule{rulePron = ["illet" := "jɛ"], ruleExamples = ["œillet" := "œ.jɛ"]}
  , "illo" := Rule{rulePron = ["illo" := "jo"], ruleExamples = ["maillot" := "ma.jo"]}
  , "ja" := Rule{rulePron = ["ja" := "ʒa"], ruleExamples = ["jacinthe" := "ʒa.sɛ̃t"]}
  , "jas" := Rule{rulePron = ["jas" := "ʒas"], ruleExamples = ["jasmin" := "ʒas.mɛ̃"]}
  , "je" := Rule{rulePron = ["je" := "ʒə"], ruleExamples = ["jetée" := "ʒə.te"]}
  , "jon" <> [LexemeConsonant] := Rule{rulePron = ["jon" := "ʒɔ̃"], ruleExamples = ["jonquille" := "ʒɔ̃.kij"]}
  , "ju" := Rule{rulePron = ["ju" := "ʒy"], ruleExamples = ["judo" := "ʒy.do"]}
  , "kan" <> [LexemeConsonant] := Rule{rulePron = ["kan" <> [LexemeConsonant] := "kɑ̃"], ruleExamples = ["kangourou" := "kɑ̃.gu.ʁu"]}
  , "ky" := Rule{rulePron = ["ky" <> [LexemeConsonant] := "ki"], ruleExamples = ["ankylosaurus" := "ɑ̃.ki.lɔ.zɔ.ʁys"]}
  , "gou" := Rule{rulePron = ["gou" := "gu"], ruleExamples = ["kangourou" := "kɑ̃.gu.ʁu"]}
  , "rou" := Rule{rulePron = ["rou" := "ʁu"], ruleExamples = ["kangourou" := "kɑ̃.gu.ʁu"]}
  , "rousse" := Rule{rulePron = ["rousse" := "ʁus"], ruleExamples = ["rousse" := "ʁus"]}
  , "la" := Rule{rulePron = ["la" := "la"], ruleExamples = ["la" := "la"]}
  , "lac" := Rule{rulePron = ["lac" := "lak"], ruleExamples = ["lac" := "lak"]}
  , "lai" := Rule{rulePron = ["lai" := "lɛ"], ruleExamples = ["laineux" := "lɛ.nø"]}
  , ending "neux" := Rule{rulePron = ["neux" := "nø"], ruleExamples = ["laineux" := "lɛ.nø"]}
  , "langue" := Rule{rulePron = ["langue" := "lɑ̃g"], ruleExamples = ["langue" := "lɑ̃g"]}
  , "le" := Rule{rulePron = ["le" := "lə"], ruleExamples = ["le" := "lə"]}
  , "li" := Rule{rulePron = ["li" := "li"], ruleExamples = ["pissenlit" := "pi.sɑ̃.li"]}
  , "lier" := Rule{rulePron = ["lier" := "lje"], ruleExamples = ["voilier" := "vwa.lje"]}
  , "lin" <> [LexemeBorder] := Rule{rulePron = ["lin" := "lɛ̃"], ruleExamples = ["merlin" := "mɛʁ.lɛ̃"]}
  , "lion" := Rule{rulePron = ["lion" := "ljɔ̃"], ruleExamples = ["lion" := "ljɔ̃"]}
  , "lionne" := Rule{rulePron = ["lionne" := "ljɔ̃n"], ruleExamples = ["lionne" := "ljɔ̃n"]}
  , "lla" := Rule{rulePron = ["lla" := "la"], ruleExamples = ["calla" := "ka.la"]}
  , "lli" := Rule{rulePron = ["lli" := "li"], ruleExamples = ["alligator" := "a.li.ga.tɔʁ"]}
  , "llon" := Rule{rulePron = ["llon" := "jɔ̃"], ruleExamples = ["papillon" := "pa.pi.jɔ̃"]}
  , "llume" := Rule{rulePron = ["llume" := "lym"], ruleExamples = ["allume" := "a.lym", "allume-feu" := "a.lym.fø"]}
  , "lu" := Rule{rulePron = ["lu" := "ly"], ruleExamples = ["révolution" := "ʁe.vɔ.ly.sjɔ̃"]}
  , "lo" := Rule{rulePron = ["lo" := "lɔ"], ruleExamples = ["logiciel" := "lɔ.ʒi.sjɛl"]}
  , "gi" := Rule{rulePron = ["gi" := "ʒi"], ruleExamples = ["logiciel" := "lɔ.ʒi.sjɛl"]}
  , "ciel" := Rule{rulePron = ["ciel" := "sjɛl"], ruleExamples = ["logiciel" := "lɔ.ʒi.sjɛl"]}
  , "ly" := Rule{rulePron = ["ly" := "li"], ruleExamples = ["polypore" := "pɔ.li.pɔʁ"]}
  , "lé" := Rule{rulePron = ["lé" := "le"], ruleExamples = ["gelé" := "ʒə.le"]}
  , "leur" := Rule{rulePron = ["leur" := "lœʁ"], ruleExamples = ["leur" := "lœʁ"]}
  , "griffe" := Rule{rulePron = ["griffe" := "gʁif"], ruleExamples = ["griffe" := "gʁif"]}
  , "ra" := Rule{rulePron = ["ra" := "ʁa"], ruleExamples = ["ra" := "ʁa"]}
  , "ma" := Rule{rulePron = ["ma" := "ma"], ruleExamples = ["ma" := "ma"]}
  , "mar" <> [LexemeConsonant] := Rule{rulePron = ["mar" <> [LexemeConsonant] := "maʁ"], ruleExamples = ["marguerite" := "maʁ.gə.ʁit"]}
  , "masque" := Rule{rulePron = ["masque" := "mask"], ruleExamples = ["masque" := "mask"]}
  , "mer" <> [LexemeConsonant] := Rule{rulePron = ["mer" <> [LexemeConsonant] := "mɛʁ"], ruleExamples = ["merlin" := "mɛʁ.lɛ̃"]}
  , "mé" := Rule{rulePron = ["mé" := "me"], ruleExamples = ["médicament" := "me.di.ka.mɑ̃"]}
  , "méde" := Rule{rulePron = ["méde" := "med"], ruleExamples = ["médecine" := "med.sin"]}
  , ending "cine" := Rule{rulePron = [ending "cine" := "sin"], ruleExamples = ["médecine" := "med.sin"]}
  , "mi" := Rule{rulePron = ["mi" := "mi"], ruleExamples = ["demi" := "də.mi"]}
  , "miel" := Rule{rulePron = ["miel" := "mjɛl"], ruleExamples = ["miel" := "mjɛl"]}
  , "mmo" := Rule{rulePron = ["mmo" := "mɔ"], ruleExamples = ["immobile" := "i.mɔ.bil"]}
  , "mo" := Rule{rulePron = ["mo" := "mɔ"], ruleExamples = ["moto" := "mɔ.to"]}
  , -- , "mon" := Rule{rulePron = ["mon" := "mɔ̃"], ruleExamples = ["montre" := "mɔ̃"]}
    "montre" := Rule{rulePron = ["montre" := "mɔ̃tʁ"], ruleExamples = ["montre" := "mɔ̃tʁ"]}
  , "montrent" := Rule{rulePron = ["montrent" := "mɔ̃tʁ"], ruleExamples = ["montrent" := "mɔ̃tʁ"]}
  , -- , "tre" := Rule{rulePron = ["tre" := "tʁ"], ruleExamples = ["montre" := "tʁ"]}
    "mu" := Rule{rulePron = ["mu" := "my"], ruleExamples = ["mucidule" := "my.si.dyl"]}
  , ending "ment" := Rule{rulePron = ["ment" := "mɑ̃"], ruleExamples = ["ment" := "mɑ̃"]}
  , "mène" := Rule{rulePron = ["mène" := "mɛn"], ruleExamples = ["promène" := "pʁɔ.mɛn"]}
  , "mènent" := Rule{rulePron = ["mènent" := "mɛn"], ruleExamples = ["promènent" := "pʁɔ.mɛn"]}
  , "na" := Rule{rulePron = ["na" := "na"], ruleExamples = ["na" := "na"]}
  , "nette" := Rule{rulePron = ["nette" := "nɛt"], ruleExamples = ["lunette" := "ly.nɛt", "lunettes" := "ly.nɛt"]}
  , "niche" := Rule{rulePron = ["niche" := "niʃ"], ruleExamples = ["péniche" := "pe.niʃ"]}
  , "nnet" := Rule{rulePron = ["nnet" := "nɛ"], ruleExamples = ["bonnet" := "bɔ.nɛ"]}
  , "noc" := Rule{rulePron = ["noc" := "nɔk"], ruleExamples = ["nocturne" := "nɔk.tyʁn"]}
  , "nou" := Rule{rulePron = ["nou" := "nu"], ruleExamples = ["nourrit" := "nu.ʁi"]}
  , "mmouth" := Rule{rulePron = ["mmouth" := "mut"], ruleExamples = ["mammouth" := "ma.mut"]}
  , "o" := Rule{rulePron = ["o" := "ɔ"], ruleExamples = ["orange" := "ɔ.ʁɑ̃ʒ"]}
  , "ou" := Rule{rulePron = ["ou" := "u"], ruleExamples = ["ou" := "u"]}
  , "pa" := Rule{rulePron = ["pa" := "pa"], ruleExamples = ["papillon" := "pa.pi.jɔ̃"]}
  , "paque" := Rule{rulePron = ["paque" := "pak"], ruleExamples = ["paquebot" := "pak.bo"]}
  , "passe" := Rule{rulePron = ["passe" := "pas"], ruleExamples = ["passerelle" := "pas.ʁɛl"]}
  , "pi" := Rule{rulePron = ["pi" := "pi"], ruleExamples = ["papillon" := "pa.pi.jɔ̃"]}
  , "pi" := Rule{rulePron = ["pi" := "pi"], ruleExamples = ["pissenlit" := "pi.sɑ̃.li"]}
  , "plon" := Rule{rulePron = ["plon" := "plɔ̃"], ruleExamples = ["plongeoir" := "plɔ̃.ʒwaʁ"]}
  , "pneu" := Rule{rulePron = ["pneu" := "pnø"], ruleExamples = ["pneumatique" := "pnø.ma.tik"]}
  , "po" := Rule{rulePron = ["po" := "pɔ"], ruleExamples = ["polypore" := "pɔ.li.pɔʁ"]}
  , "foin" := Rule{rulePron = ["foin" := "fwɛ̃"], ruleExamples = ["foin" := "fwɛ̃"]}
  , "pon" := Rule{rulePron = ["pon" := "pɔ̃"], ruleExamples = ["pont" := "pɔ̃"]}
  , "pore" := Rule{rulePron = ["pore" := "pɔʁ"], ruleExamples = ["polypore" := "pɔ.li.pɔʁ"]}
  , "porte" := Rule{rulePron = ["porte" := "pɔʁt"], ruleExamples = ["porte" := "pɔʁt"]}
  , "pro" := Rule{rulePron = ["pro" := "pʁɔ"], ruleExamples = ["promène" := "pʁɔ.mɛn"]}
  , "pâ" := Rule{rulePron = ["pâ" := "pa"], ruleExamples = ["pâquerette" := "pa.kʁɛt"]} -- ɑ
  , "pé" := Rule{rulePron = ["pé" := "pe"], ruleExamples = ["péniche" := "pe.niʃ"]}
  , "que" := Rule{rulePron = ["que" := "kə"], ruleExamples = ["querelle" := "kə.ʁɛl"]}
  , "querette" := Rule{rulePron = ["querette" := "kʁɛt"], ruleExamples = ["pâquerette" := "pa.kʁɛt"]}
  , "queuse" := Rule{rulePron = ["queuse" := "køz"], ruleExamples = ["visqueuse" := "vis.køz"]}
  , "quille" := Rule{rulePron = ["quille" := "kij"], ruleExamples = ["jonquille" := "ʒɔ̃.kij"]}
  , "quipe" := Rule{rulePron = ["quipe" := "kip"], ruleExamples = ["équipe" := "e.kip"]}
  , "range" := Rule{rulePron = ["range" := "ʁɑ̃ʒ"], ruleExamples = ["orange" := "ɔ.ʁɑ̃ʒ"]}
  , "rangent" := Rule{rulePron = ["rangent" := "ʁɑ̃ʒ"], ruleExamples = ["rangent" := "ʁɑ̃ʒ"]}
  , "ran" <> [LexemeConsonant] := Rule{rulePron = ["ran" <> [LexemeConsonant] := "ʁɑ̃"], ruleExamples = ["orangé" := "ɔ.ʁɑ̃.ʒe"]}
  , ending "ran" := Rule{rulePron = [ending "ran" := "ʁɑ̃"], ruleExamples = ["tyran" := "ti.ʁɑ̃"]}
  , "rann" := Rule{rulePron = ["rann" := "ʁan"], ruleExamples = ["tyrannosaure" := "ti.ʁa.nɔ.zɔʁ"]}
  , "ranno" := Rule{rulePron = ["ra" := "ʁa", "nno" := "nɔ"], ruleExamples = ["tyrannosaure" := "ti.ʁa.nɔ.zɔʁ"]}
  , "relle" := Rule{rulePron = ["relle" := "ʁɛl"], ruleExamples = ["passerelle" := "pas.ʁɛl"]}
  , -- , "ra" := Rule{rulePron = ["ra" := "ʁa"], ruleExamples = ["girafe" := "ʒi.ʁaf"]}
    "rafe" := Rule{rulePron = ["rafe" := "ʁaf"], ruleExamples = ["girafe" := "ʒi.ʁaf"]}
  , "aigle" := Rule{rulePron = ["aigle" := "ɛgl"], ruleExamples = ["aigle" := "ɛgl"]}
  , "cor" <> [LexemeConsonant] := Rule{rulePron = ["cor" <> [LexemeConsonant] := "kɔʁ"], ruleExamples = ["corbeau" := "kɔʁ.bo"]}
  , "ri" := Rule{rulePron = ["ri" := "ʁi"], ruleExamples = ["rideau" := "ʁi.do"]}
  , "rhi" := Rule{rulePron = ["rhi" := "ʁi"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "no" := Rule{rulePron = ["no" := "nɔ"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "cé" := Rule{rulePron = ["cé" := "se"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "rhinocéros" := Rule{rulePron = ["rhi" := "ʁi", "no" := "nɔ", "cé" := "se", "ros" <> [LexemeMeaning "animal"] := "ʁɔs"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "no" := Rule{rulePron = ["no" := "nɔ"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "cé" := Rule{rulePron = ["cé" := "se"], ruleExamples = ["rhinocéros" := "ʁi.nɔ.se.ʁɔs"]}
  , "rine" := Rule{rulePron = ["rine" := "ʁin"], ruleExamples = ["marine" := "ma.ʁin"]}
  , "rite" := Rule{rulePron = ["rite" := "ʁit"], ruleExamples = ["marguerite" := "maʁ.gə.ʁit"]}
  , "ro" := Rule{rulePron = ["ro" := "ʁɔ"], ruleExamples = ["robot" := "ʁɔ.bo"]}
  , "rex" := Rule{rulePron = ["rex" := "ʁɛks"], ruleExamples = ["rex" := "ʁɛks"]}
  , "tro" := Rule{rulePron = ["tro" := "tʁɔ"], ruleExamples = ["dimétrodon" := "di.me.tʁɔ.dɔ̃"]}
  , "kro" := Rule{rulePron = ["kro" := "kʁɔ"], ruleExamples = ["kronosaurus" := "kʁɔ.nɔ.zɔ.ʁys"]}
  , "rose" := Rule{rulePron = ["rose" := "ʁɔz"], ruleExamples = ["rose" := "ʁɔz"]}
  , "rou" := Rule{rulePron = ["rou" := "ʁu"], ruleExamples = ["rouler" := "ʁu.le"]}
  , "rouge" := Rule{rulePron = ["rouge" := "ʁuʒ"], ruleExamples = ["rouge" := "ʁuʒ"]}
  , "rri" := Rule{rulePron = ["rri" := "ʁi"], ruleExamples = ["nourrit" := "nu.ʁi"]}
  , "ré" := Rule{rulePron = ["ré" := "ʁe"], ruleExamples = ["révolution" := "ʁe.vɔ.ly.sjɔ̃"]}
  , "sa" := Rule{rulePron = ["sa" := "sa"], ruleExamples = ["satellite" := "sa.te.lit"]}
  , begining "singe" := Rule{rulePron = [begining "singe" := "sɛ̃ʒ"], ruleExamples = ["singe" := "sɛ̃ʒ"]}
  , "buse" := Rule{rulePron = ["buse" := "byz"], ruleExamples = ["buse" := "byz"]}
  , "bulle" := Rule{rulePron = ["bulle" := "byl"], ruleExamples = ["bulle" := "byl"]}
  , "tigre" := Rule{rulePron = ["tigre" := "tigʁ"], ruleExamples = ["tigre" := "tigʁ"]}
  , "tigresse" := Rule{rulePron = ["ti" := "ti", "gresse" := "gʁɛs"], ruleExamples = ["tigresse" := "ti.gʁɛs"]}
  , "lombe" := Rule{rulePron = ["lombe" := "lɔ̃b"], ruleExamples = ["colombe" := "kɔ.lɔ̃b"]}
  , "sauve" := Rule{rulePron = ["sauve" := "sov"], ruleExamples = ["sauvetage" := "sov.taʒ"]}
  , "scine" := Rule{rulePron = ["scine" := "sin"], ruleExamples = ["piscine" := "pi.sin"]}
  , "short" := Rule{rulePron = ["short" := "ʃɔʁt"], ruleExamples = ["short" := "ʃɔʁt"]}
  , "ssen" := Rule{rulePron = ["ssen" := "sɑ̃"], ruleExamples = ["pissenlit" := "pi.sɑ̃.li"]}
  , "cha" := Rule{rulePron = ["cha" := "ʃa"], ruleExamples = ["cha" := "ʃa"]}
  , "chasse" := Rule{rulePron = ["chasse" := "ʃas"], ruleExamples = ["chasse" := "ʃas"]}
  , "chassent" := Rule{rulePron = ["chassent" := "ʃas"], ruleExamples = ["chassent" := "ʃas"]}
  , "sur" := Rule{rulePron = ["sur" := "syʁ"], ruleExamples = ["sur" := "syʁ"]}
  , "smi" := Rule{rulePron = ["smi" := "smi"], ruleExamples = ["smilodon" := "smi.lɔ.dɔ̃"]}
  , "ta" := Rule{rulePron = ["ta" := "ta"], ruleExamples = ["ta" := "ta"]}
  , "tage" := Rule{rulePron = ["tage" := "taʒ"], ruleExamples = ["sauvetage" := "sov.taʒ"]}
  , "tan" <> [LexemeConsonant] := Rule{rulePron = ["tan" <> [LexemeConsonant] := "tɑ̃"], ruleExamples = ["tan" := "tɑ̃"]}
  , "tellite" := Rule{rulePron = ["te" <> [LexemeDoubleConsonant] := "te", "llite" := "lit"], ruleExamples = ["satellite" := "sa.te.lit"]}
  , "terie" := Rule{rulePron = ["terie" := "tʁi"], ruleExamples = ["poterie" := "pɔ.tʁi"]}
  , "thème" := Rule{rulePron = ["thème" := "tɛm"], ruleExamples = ["chrysanthème" := "kʁi.zɑ̃.tɛm"]}
  , "tient" := Rule{rulePron = ["tient" := "tjɛ̃"], ruleExamples = ["tient" := "tjɛ̃"]}
  , "tier" := Rule{rulePron = ["tier" := "tje"], ruleExamples = ["chalutier" := "ʃa.ly.tje"]}
  , "tion" := Rule{rulePron = ["tion" := "sjɔ̃"], ruleExamples = ["révolution" := "ʁe.vɔ.ly.sjɔ̃"]}
  , "quetzal" := Rule{rulePron = ["quet" := "kɛt", "zal" := "zal"], ruleExamples = ["quetzalcoatlus" := "kɛt.zal.ko.at.lys"]}
  , ending "coatlus" := Rule{rulePron = ["co" := "ko", "at" := "at", "lus" := "lys"], ruleExamples = ["quetzalcoatlus" := "kɛt.zal.ko.at.lys"]}
  , "pachy" := Rule{rulePron = ["pa" := "pa", "chy" := "ʃi"], ruleExamples = ["pachycephalosaurus" := "pa.ʃi.se.fa.lɔ.zɔ.ʁys"]}
  , "cephalo" := Rule{rulePron = ["ce" := "se", "pha" := "fa", "lo" := "lɔ"], ruleExamples = ["pachycephalosaurus" := "pa.ʃi.se.fa.lɔ.zɔ.ʁys"]}
  , "stégo" := Rule{rulePron = ["ste" := "ste", "go" := "gɔ"], ruleExamples = ["stégoceras" := "ste.gɔ.se.ʁas"]}
  , ending "ceras" := Rule{rulePron = ["ce" := "se", "ras" := "ʁas"], ruleExamples = ["stégoceras" := "ste.gɔ.se.ʁas"]}
  , [LexemeVowel] <> "saure" := Rule{rulePron = [[LexemeVowel] <> "saure" := "zɔʁ"], ruleExamples = ["ankylosaure" := "ɑ̃.ki.lɔ.zɔʁ"]}
  , [LexemeVowel] <> "sau" := Rule{rulePron = [[LexemeVowel] <> "sau" := "zɔ"], ruleExamples = ["maiasaura" := "ma.ja.zɔ.ʁa"]}
  , [LexemeVowel] <> "saurus" := Rule{rulePron = [[LexemeVowel] <> "sau" := "zɔ", "rus" := "ʁys"], ruleExamples = ["kronosaurus" := "kʁɔ.nɔ.zɔ.ʁys"]}
  , "saurus" := Rule{rulePron = ["sau" := "zɔ", "rus" := "ʁys"], ruleExamples = ["saurus" := "zɔ.ʁys"]}
  , "ssion" := Rule{rulePron = ["ssion" := "sjɔ̃"], ruleExamples = ["passion" := "pa.sjɔ̃"]}
  , "tille" := Rule{rulePron = ["tille" := "tij"], ruleExamples = ["myrtille" := "miʁ.tij"]}
  , "tique" := Rule{rulePron = ["tique" := "tik"], ruleExamples = ["pneumatique" := "pnø.ma.tik"]}
  , "tir" := Rule{rulePron = ["tir" := "tiʁ"], ruleExamples = ["tire" := "tiʁ"]}
  , "tops" := Rule{rulePron = ["tops" := "tɔps"], ruleExamples = ["tricératops" := "tʁi.se.ʁa.tɔps"]}
  , "pêche" := Rule{rulePron = ["pêche" := "pɛʃ"], ruleExamples = ["pêche" := "pɛʃ"]}
  , "vert" := Rule{rulePron = ["vert" := "vɛʁ"], ruleExamples = ["vert" := "vɛʁ"]}
  , "myr" := Rule{rulePron = ["myr" := "miʁ"], ruleExamples = ["myrtille" := "miʁ.tij"]}
  , begining "si" := Rule{rulePron = [begining "si" := "si"], ruleExamples = ["sirop" := "si.ʁo"]}
  , ending "rop" := Rule{rulePron = ["rop" := "ʁo"], ruleExamples = ["sirop" := "si.ʁo"]}
  , "tor" := Rule{rulePron = ["tor" := "tɔʁ"], ruleExamples = ["alligator" := "a.li.ga.tɔʁ"]}
  , "touche" := Rule{rulePron = ["touche" := "tuʃ"], ruleExamples = ["touche" := "tuʃ"]}
  , "tri" := Rule{rulePron = ["tri" := "tʁi"], ruleExamples = ["tri" := "tʁi"]}
  , "tris" <> [LexemeConsonant] := Rule{rulePron = ["tris" := "tʁis"], ruleExamples = ["ma" := "ma"]}
  , "truffe" := Rule{rulePron = ["truffe" := "tʁyf"], ruleExamples = ["Truffe" := "tʁyf"]}
  , "trône" := Rule{rulePron = ["trône" := "tʁon"], ruleExamples = ["trône" := "tʁon"]}
  , "ttière" := Rule{rulePron = ["ttière" := "tjɛʁ"], ruleExamples = ["gouttière" := "gu.tjɛʁ"]}
  , "tu" := Rule{rulePron = ["tu" := "ty"], ruleExamples = ["tuba" := "ty.ba"]}
  , "ty" := Rule{rulePron = ["ty" := "ti"], ruleExamples = ["tyran" := "ti.ʁɑ̃"]}
  , "turne" := Rule{rulePron = ["turne" := "tyʁn"], ruleExamples = ["nocturne" := "nɔk.tyʁn"]}
  , "té" := Rule{rulePron = ["té" := "te"], ruleExamples = ["gâté" := "ga.te"]}
  , "pté" := Rule{rulePron = ["pté" := "pte"], ruleExamples = ["ptéranodon" := "pte.ʁa.nɔ.dɔ̃"]}
  , "utah" := Rule{rulePron = ["u" := "y", "tah" := "ta"], ruleExamples = ["utah" := "y.ta"]}
  , "vache" := Rule{rulePron = ["vache" := "vaʃ"], ruleExamples = ["vache" := "vaʃ"]}
  , "vec" := Rule{rulePron = ["vec" := "vɛk"], ruleExamples = ["avec" := "a.vɛk"]}
  , "vis" := Rule{rulePron = ["vis" := "vis"], ruleExamples = ["visqueuse" := "vis.køz"]}
  , "vo" := Rule{rulePron = ["vo" := "vɔ"], ruleExamples = ["révolution" := "ʁe.vɔ.ly.sjɔ̃"]}
  , "von" := Rule{rulePron = ["von" := "vɔ̃"], ruleExamples = ["savon" := "sa.vɔ̃"]}
  , "sson" := Rule{rulePron = ["sson" := "sɔ̃"], ruleExamples = ["boisson" := "bwa.sɔ̃"]}
  , "zeuse" := Rule{rulePron = ["zeuse" := "zøz"], ruleExamples = ["gazeuse" := "ga.zøz"]}
  , "voi" := Rule{rulePron = ["voi" := "vwa"], ruleExamples = ["voilier" := "vwa.lje"]}
  , "vé" := Rule{rulePron = ["vé" := "ve"], ruleExamples = ["vélo" := "ve.lo"]}
  , "fête" := Rule{rulePron = ["fête" := "fɛt"], ruleExamples = ["fête" := "fɛt"]}
  , "fruit" := Rule{rulePron = ["fruit" := "fʁɥi"], ruleExamples = ["fruit" := "fʁɥi"]}
  , "nane" := Rule{rulePron = ["nane" := "nan"], ruleExamples = ["banane" := "ba.nan"]}
  , "pomme" := Rule{rulePron = ["pomme" := "pɔm"], ruleExamples = ["pomme" := "pɔm"]}
  , "ce" := Rule{rulePron = ["ce" := "sə"], ruleExamples = ["cerise" := "sə.ʁiz"]}
  , "rise" := Rule{rulePron = ["rise" := "ʁiz"], ruleExamples = ["cerise" := "sə.ʁiz"]}
  , "yo" := Rule{rulePron = ["yo" := "jo"], ruleExamples = ["Yohan" := "jo.an"]}
  , "é" := Rule{rulePron = ["é" := "e"], ruleExamples = ["équipe" := "e.kip"]}
  , "dé" := Rule{rulePron = ["dé" := "de"], ruleExamples = ["décorations" := "de.kɔ.ʁa.sjɔ̃"]}
  , "œ" := Rule{rulePron = ["œ" := "œ"], ruleExamples = ["œillet" := "œ.jɛ"]}
  , "ti" := Rule{rulePron = ["ti" := "ti"], ruleExamples = ["d'artifices" := "daʁ.ti.fis"]}
  , "fice" := Rule{rulePron = ["fice" := "fis"], ruleExamples = ["d'artifices" := "daʁ.ti.fis"]}
  , -- kɑ̃.ta.lu
    "can" <> [LexemeConsonant] := Rule{rulePron = ["can" <> [LexemeConsonant] := "kɑ̃"], ruleExamples = ["cantaloup" := "kɑ̃.ta.lu"]}
  , ending "loup" := Rule{rulePron = [ending "loup" := "lu"], ruleExamples = ["cantaloup" := "kɑ̃.ta.lu"]}
  , begining "d'ar" := Rule{rulePron = [begining "d'ar" := "daʁ"], ruleExamples = ["d'artifices" := "daʁ.ti.fis"]}
  , "mustang" := Rule{rulePron = ["mus" := "mys", "tang" := "tɑ̃g"], ruleExamples = ["mustang" := "mys.tɑ̃g"]}
  , "tarte" := Rule{rulePron = ["tarte" := "taʁt"], ruleExamples = ["tarte" := "taʁt"]}
  , "citron" := Rule{rulePron = ["ci" := "si", "tron" := "tʁɔ̃"], ruleExamples = ["citron" := "si.tʁɔ̃"]}
  , begining "d'o" := Rule{rulePron = [begining "d'o" := "dɔ"], ruleExamples = ["d'orange" := "dɔ.ʁɑ̃ʒ"]}
  , begining "d'a" <> [LexemeConsonant] := Rule{rulePron = [begining "d'a" <> [LexemeConsonant] := "da"], ruleExamples = ["d'ananas" := "da.na.nas"]}
  , word "d'ananas" := Rule{rulePron = ["d'a" <> [LexemeMeaning "fruit"] := "da", "na" <> [LexemeMeaning "fruit"] := "na", "nas" <> [LexemeMeaning "fruit"] := "nas"], ruleExamples = ["d'ananas" := "da.na.nas"]}
  , [LexemeVowel] <> "san" <> [LexemeConsonant] := Rule{rulePron = [[LexemeVowel] <> "san" <> [LexemeConsonant] := "zɑ̃"], ruleExamples = ["chrysanthème" := "kʁi.zɑ̃.tɛm"]}
  , [LexemeVowel] <> "sienne" := Rule{rulePron = [[LexemeVowel] <> "sienne" := "zjɛn"], ruleExamples = ["draisienne" := "dʁɛ.zjɛn"]}
  , [LexemeVowel] <> "ya" := Rule{rulePron = [[LexemeVowel] <> "ya" := "ja"], ruleExamples = ["ya" := "ja"]}
  , [LexemeVowel] <> "ia" := Rule{rulePron = [[LexemeVowel] <> "ia" := "ja"], ruleExamples = ["maia" := "ma.ja"]}
  , begining "absent" := Rule{rulePron = [begining "ab" := "ab", "sent" := "sɑ̃"], ruleExamples = ["absent" := "ab.sɑ̃", "absents" := "ab.sɑ̃"]}
  , begining "exer" := Rule{rulePron = ["e" := "ɛ", "x" := "g.z", "er" := "ɛʁ"], ruleExamples = ["exercice" := "ɛg.zɛʁ.sis"]}
  , begining "ya" := Rule{rulePron = [begining "ya" := "ja"], ruleExamples = ["ya" := "ja"]}
  , begining "yacht" := Rule{rulePron = ["yacht" := "jɔt"], ruleExamples = ["yacht" := "jɔt"]}
  , ending "bis" := Rule{rulePron = [ending "bis" := "bis"], ruleExamples = ["ibis" := "i.bis"]}
  , ending "bo" := Rule{rulePron = [ending "bo" := "bo"], ruleExamples = ["bobo" := "bɔ.bo"]}
  , ending "bot" := Rule{rulePron = [ending "bot" := "bo"], ruleExamples = ["robot" := "ʁɔ.bo"]}
  , ending "cice" := Rule{rulePron = [ending "cice" := ["sis"]], ruleExamples = ["exercice" := "ɛg.zɛʁ.sis"]}
  , ending "cices" := Rule{rulePron = [ending "cices" := ["sis"]], ruleExamples = ["exercices" := "ɛg.zɛʁ.sis"]}
  , ending "co" := Rule{rulePron = ["co" := "ko"], ruleExamples = ["cocorico" := "kɔ.kɔ.ʁi.ko"]}
  , ending "do" := Rule{rulePron = [ending "do" := "do"], ruleExamples = ["judo" := "ʒy.do"]}
  , ending "e" := Rule{rulePron = [ending "e" := [""]], ruleExamples = ["gelée" := "ʒə.le"]}
  , ending "han" := Rule{rulePron = [ending "han" := "an"], ruleExamples = ["Yohan" := "jo.an"]}
  , ending "ler" := Rule{rulePron = [ending "ler" := "le"], ruleExamples = ["rouler" := "ʁu.le"]}
  , ending "let" := Rule{rulePron = [ending "let" := "lɛ"], ruleExamples = ["gilet" := "ʒi.lɛ"]}
  , ending "lo" := Rule{rulePron = [ending "lo" := "lo"], ruleExamples = ["vélo" := "ve.lo"]}
  , ending "min" := Rule{rulePron = [ending "min" := "mɛ̃"], ruleExamples = ["jasmin" := "ʒas.mɛ̃"]}
  , ending "mmo" := Rule{rulePron = [ending "mmo" := "mo"], ruleExamples = ["immo" := "i.mo"]}
  , ending "mo" := Rule{rulePron = [ending "mo" := "mo"], ruleExamples = ["homo" := "o.mo"]}
  , ending "mot" := Rule{rulePron = [ending "mot" := "mo"], ruleExamples = ["mot" := "mo"]}
  , ending "doux" := Rule{rulePron = [ending "doux" := "du"], ruleExamples = ["doux" := "du"]}
  , ending "not" := Rule{rulePron = [ending "not" := "no"], ruleExamples = ["canot" := "ka.no"]}
  , ending "s" := Rule{rulePron = [ending "s" := [""]], ruleExamples = ["bulles" := "byl"]}
  , ending "ent" := Rule{rulePron = [ending "ent" := [""]], ruleExamples = ["tirent" := "tiʁ"]}
  , ending "t" := Rule{rulePron = [ending "t" := [""]], ruleExamples = []}
  , ending "tan" := Rule{rulePron = [ending "tan" := "tɑ̃"], ruleExamples = ["tan" := "tɑ̃"]}
  , "teau" := Rule{rulePron = ["teau" := "to"], ruleExamples = ["bateau" := "ba.to"]}
  , "beau" := Rule{rulePron = ["beau" := "bo"], ruleExamples = ["corbeau" := "kɔʁ.bo"]}
  , "ceau" := Rule{rulePron = ["ceau" := "so"], ruleExamples = ["lionceau" := "ljɔ̃.so"]}
  , ending "to" := Rule{rulePron = [ending "to" := "to"], ruleExamples = ["moto" := "mɔ.to"]}
  , ending "ts" := Rule{rulePron = [ending "ts" := [""]], ruleExamples = ["maillots" := "ma.jo"]}
  , word "dans" := Rule{rulePron = [word "dans" := "dɑ̃"], ruleExamples = ["dans" := "dɑ̃"]}
  , word "et" := Rule{rulePron = [word "et" := "e"], ruleExamples = ["et" := "e"]}
  , word "des" := Rule{rulePron = ["des" := "de"], ruleExamples = ["des" := "de"]}
  , word "les" := Rule{rulePron = [word "les" := "le"], ruleExamples = ["les" := "le"]}
  , word "sous" := Rule{rulePron = [word "sous" := "su"], ruleExamples = ["sous" := "su"]}
  , word "un" := Rule{rulePron = [word "un" := "œ̃"], ruleExamples = ["un" := "œ̃"]}
  , word "une" := Rule{rulePron = [word "une" := "yn"], ruleExamples = ["une" := "yn"]}
  , "coli" := Rule{rulePron = ["co" := "kɔ", "li" := "li"], ruleExamples = ["Escherichia coli" := "ɛ.ʃe.ʁi.ʃja.kɔ.li"]}
  ]
    & Pron.withCapital
    & fromList

{-
, word "mer" :=
    Rule
      { rulePron =
          [ "mer" := ["mɛʁ"]
          ]
      , ruleExamples = [["mer" & occurence]]
      }
, begining "mer" <> [LexemeConsonant] :=
    Rule
      { rulePron = [ "mer" := ["mɛʁ"] ]
      , ruleExamples = [["mer" & occurence, "le"]]
      }
, begining "Mer" <> [LexemeConsonant] :=
    Rule
      { rulePron = [ "Mer" := ["mɛʁ"] ]
      , ruleExamples = [["Mer" & occurence, "lin"]]
      }
, begining "Mer" <> [LexemeConsonant] :=
    Rule
      { rulePron = [ "Mer" := ["mɛʁ"] ]
      , ruleExamples = [["Mer" & occurence, "lin"]]
      }
, "abstrait" :=
    Rule
      { rulePron =
          [ "ab" := ["ap"] -- sic
          , "strait" := ["stʁɛ"]
          ]
      , ruleExamples = [["abstrait" & occurence]]
      }
, "ab" :=
    Rule
      { rulePron = ["ab" := ["ab"]]
      , ruleExamples = [["ab" & occurence, "solu"]]
      }
, "so" :=
    Rule
      { rulePron = ["so" := ["sɔ"]]
      , ruleExamples = [["ab", "so" & occurence, "lu"]]
      }
, "lu" :=
    Rule
      { rulePron = ["lu" := ["ly"]]
      , ruleExamples = [["lu" & occurence], ["abso", "lu" & occurence]]
      }
, "a" :=
    Rule
      { rulePron = ["a" := ["a"]]
      , ruleExamples = [["a" & occurence]]
      }
, "llume" :=
    Rule
      { rulePron = ["llume" := ["lym"]]
      , ruleExamples = [["a", "llume" & occurence]]
      }
, "cice" :=
    Rule
      { rulePron =
          [ "cice" := ["sis"]
          ]
      , ruleExamples = [["exer", "cice" & occurence]]
      }
-}