concrete StructuralFre of Structural = CatFre ** 
  open PhonoFre, MorphoFre, ParadigmsFre, Prelude in {

  flags optimize=all ;

lin

  above_Prep = {s = ["au dessus"] ; c = genitive ; isDir = False} ;
  after_Prep = mkPreposition "après" ;
--  all_Predet = toutDet ;
  almost_AdA, almost_AdN = ss "presque" ;
  although_Subj = ss ("bien" ++ elisQue) ** {m = Conjunct} ;
  and_Conj = ss "et" ** {n = Pl} ;
  because_Subj = ss ("parce" ++ elisQue) ** {m = Indic} ;
  before_Prep = mkPreposition "avant" ;
  behind_Prep = mkPreposition "derrière" ;
  between_Prep = mkPreposition "entre" ;
  both7and_DConj = {s1,s2 = "et" ; n = Pl} ;
  by8agent_Prep = mkPreposition "par" ;
  by8means_Prep = mkPreposition "par" ;
--  can8know_VV = mkVerbVerbDir (verbPres (conj3savoir "savoir") AHabere) ;
--  can_VV = mkVerbVerbDir (verbPres (conj3pouvoir "pouvoir") AHabere) ;
  during_Prep = mkPreposition "pendant" ;
  either7or_DConj = {s1,s2 = "ou" ; n = Pl} ;
--  everybody_NP = mkNameNounPhrase ["tout le monde"] Masc ;
  every_Det = {s = \\_,_ => "chaque" ; n = Sg} ;
--  everything_NP = mkNameNounPhrase ["tout"] Masc ;
  everywhere_Adv = ss "partout" ;
  from_Prep = complGen ; ---
  he_Pron = 
    mkPronoun
      "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
      Masc Sg P3 Clit2 ;
  how_IAdv = ss "comment" ;
  how8many_IDet = {s = \\_ => "combien" ++ elisDe ; n = Pl} ;
  if_Subj = ss elisSi ** {m = Indic} ;
  in8front_Prep = mkPreposition "devant" ;
  i_Pron = 
    mkPronoun
      (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes"
      Fem Sg P1 Clit1 ;
  in_Prep = mkPreposition "dans" ;
  it_Pron = 
    mkPronoun
      "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses"
      Masc Sg P3 Clit2 ;
--  many_Det = mkDeterminer1 plural "plusieurs" ;
--  most8many_Det = plupartDet ;
--  most_Det = mkDeterminer1 singular (["la plupart"] ++ elisDe) ; --- de
--  much_Det = mkDeterminer1 singular ("beaucoup" ++ elisDe) ; --- de
--  must_VV = mkVerbVerbDir (verbPres (conj3devoir "devoir") AHabere) ;
  no_Phr = ss "non" ; --- and also Si!
  on_Prep = mkPreposition "sur" ;
  or_Conj = {s = "ou" ; n = Sg} ;
  otherwise_PConj = ss "autrement" ;
  part_Prep = complGen ;
  possess_Prep = complGen ;
  quite_Adv = ss "assez" ;
  she_Pron = 
    mkPronoun
      "elle" elisLa "lui" "elle" "son" (elisPoss "s") "ses"
      Fem Sg P3 Clit2 ;

  so_AdA = ss "si" ;
--  somebody_NP = mkNameNounPhrase ["quelqu'un"] Masc ;
--  some_Det = mkDeterminer1 singular "quelque" ;
--  some_NDet = mkDeterminerNum "quelques" "quelques" ;
--  something_NP = mkNameNounPhrase ["quelque chose"] Masc ;
  somewhere_Adv = ss ["quelque part"] ; --- ne - pas
--  that_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- là
--  that_NP = mkNameNounPhrase ["ça"] Masc ;
  therefore_PConj = ss "donc" ;
--  these_NDet = mkDeterminerNum "ces" "ces" ; --- ci
--  they_Pron = pronNounPhrase pronIls ;
--  they8fem_Pron = pronNounPhrase pronElles ;
--  this_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- ci
--  this_NP = mkNameNounPhrase ["ceci"] Masc ;
--  those_NDet = mkDeterminerNum "ces" "ces" ; --- là
  thou_Pron = mkPronoun 
    "tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes"
    Fem Sg P2 Clit1 ;
  through_Prep = mkPreposition "par" ;
  too_AdA = ss "trop" ;
  to_Prep = complDat ;
  under_Prep = mkPreposition "sous" ;
  very_AdA = ss "très" ;
--  want_VV = mkVerbVerbDir (verbPres (conj3vouloir "vouloir") AHabere) ;
  we_Pron = 
    mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos"
    Fem Pl P1 Clit3 ;
  whatSg_IP = {s = \\_ => "quoi" ; a = aagr Fem Sg} ;
--  what8many_IP = intPronWhat plural ;
  when_IAdv = ss "quand" ;
  when_Subj = ss "quand" ** {m = Indic} ;
  where_IAdv = ss "où" ;
--  which8many_IDet = mkDeterminerNum "quels" "quelles" ** {n = Pl} ;
--  which8one_IDet = quelDet ;
  whoSg_IP = {s = \\_ => "qui" ; a = aagr Fem Sg} ;
--  who8many_IP = intPronWho plural ;
  why_IAdv = ss "pourquoi" ;
  without_Prep = mkPreposition "sans" ;
  with_Prep = mkPreposition "avec" ;
  ye_Pron = 
    mkPronoun
      "vous" "vous" "vous" "vous" "votre" "votre" "vos"
       Fem Pl P2 Clit3 ;
  yes_Phr = ss "oui" ; --- si
--  you_Pron = pronNounPhrase pronVous ;

}


{-
  lin
  above_Prep = ss "ovanför" ;
  after_Prep = ss "efter" ;
  by8agent_Prep = ss "av" ;
  all_Predet = {s = gennumForms "all" "allt" "alla"} ;
  almost_AdA, almost_AdN = ss "nästan" ;
  although_Subj = ss "fast" ;
  always_AdV = ss "alltid" ;
  and_Conj = ss "och" ** {n = Pl} ;
  because_Subj = ss "eftersom" ;
  before_Prep = ss "före" ;
  behind_Prep = ss "bakom" ;
  between_Prep = ss "mellan" ;
  both7and_DConj = sd2 "både" "och" ** {n = Pl} ;
  but_PConj = ss "men" ;
  by8means_Prep = ss "med" ;
  can8know_VV, can_VV = 
    mkVerb6 "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" **
    {c2 = [] ; lock_VV = <>} ;
  during_Prep = ss "under" ;
  either7or_DConj = sd2 "antingen" "eller" ** {n = Sg} ;
  everybody_NP = regNP "alla" "allas" Plg ;
  every_Det = {s = \\_,_ => "varje" ; n = Sg ; det = DDef Indef} ;
  everything_NP = regNP "allting" "alltings" SgNeutr ;
  everywhere_Adv = ss "överallt" ;
  first_Ord = {s = "första" ; isDet = True} ;
  from_Prep = ss "från" ;
  he_Pron = mkNP "han"  "honom"  "hans" "hans" "hans"  SgUtr P3 ;
  here_Adv = ss "här" ;
  here7to_Adv = ss "hit" ;
  here7from_Adv = ss "härifrån" ;
  how_IAdv = ss "hur" ;
  how8many_IDet = {s = \\_ => ["hur många"] ; n = Pl ; det = DDef Indef} ;
  if_Subj = ss "om" ;
  in8front_Prep = ss "framför" ;
  i_Pron = mkNP "jag"  "mig"  "min" "mitt" "mina"  SgUtr P1 ;
  in_Prep = ss "i" ;
  it_Pron = regNP "det" "dess" SgNeutr ;
  less_CAdv = ss "mindre" ;
  many_Det = {s = \\_,_ => "många" ; n = Pl ; det = DDef Indef} ;
  more_CAdv = ss "mer" ;
  most_Predet = {s = gennumForms ["den mesta"] ["det mesta"] ["de flesta"]} ;
  much_Det = {s = \\_,_ => "mycket" ; n = Pl ; det = DDef Indef} ;
  must_VV = 
    mkVerb6 "få" "måste" "få" "fick" "måst" "måst" ** {c2 = [] ; lock_VV = <>} ;
  no_Phr = ss ["Nej"] ;
  on_Prep = ss "på" ;
  one_Quant = {s = \\_ => genderForms ["en"] ["ett"] ; n = Sg ; det = DIndef} ;
  only_Predet = {s = \\_ => "bara"} ;
  or_Conj = ss "eller" ** {n = Sg} ;
  otherwise_PConj = ss "annars" ;
  part_Prep = ss "av" ;
  please_Voc = ss "tack" ; ---
  possess_Prep = ss "av" ;
  quite_Adv = ss "ganska" ;
  she_Pron = mkNP "hon" "henne" "hennes" "hennes" "hennes"  SgUtr P3 ;
  so_AdA = ss "så" ;
  someSg_Det = {s = \\_ => genderForms "någon" "något" ; n = Sg ; det = DIndef} ;
  somePl_Det = {s = \\_,_ => "några" ; n = Pl ; det = DIndef} ;
  somebody_NP = regNP "någon" "någons" SgUtr ;
  something_NP = regNP "något" "någots" SgNeutr ;
  somewhere_Adv = ss "någonstans" ;
  that_Quant = 
    {s = \\_ => genderForms ["den där"] ["det där"] ; n = Sg ; det = DDef Def} ;
  that_NP = regNP ["det där"] ["det därs"] SgNeutr ;
  there_Adv = ss "där" ;
  there7to_Adv = ss "dit" ;
  there7from_Adv = ss "därifrån" ;
  therefore_PConj = ss "därför" ;
  these_NP = regNP ["de här"] ["det härs"] Plg ;
  these_Quant = {s = \\_,_ => ["de här"] ; n = Pl ; det = DDef Def} ;
  they_Pron = mkNP "de" "dem" "deras" "deras" "deras" Plg P1 ;
  this_Quant = 
    {s = \\_ => genderForms ["den här"] ["det här"] ; n = Sg ; det = DDef Def} ;
  this_NP = regNP ["det här"] ["det härs"] SgNeutr ;
  those_NP = regNP ["de där"] ["det därs"] Plg ;
  those_Quant = {s = \\_,_ => ["de där"] ; n = Pl ; det = DDef Def} ;
  thou_Pron = mkNP "du" "dig" "din" "ditt" "dina" SgUtr P2 ;
  through_Prep = ss "genom" ;
  too_AdA = ss "för" ;
  to_Prep = ss "till" ;
  under_Prep = ss "under" ;
  very_AdA = ss "mycket" ;
  want_VV = 
    mkVerb6 "vilja" "vill" "vilj" "ville" "velat" "velad" ** 
    {c2 = [] ; lock_VV = <>} ;
  we_Pron = mkNP "vi"  "oss"  "vår" "vårt" "våra"  Plg P1 ;
  whatSg_IP = {s = \\_ => "vad" ; gn = SgUtr} ; ---- infl
  whatPl_IP = {s = \\_ => "vad" ; gn = Plg} ; ---- infl
  when_IAdv = ss "när" ;
  when_Subj = ss "när" ;
  where_IAdv = ss "var" ;
  whichPl_IDet = {s = \\_ => "vilka" ; n = Pl ; det = DIndef} ;
  whichSg_IDet = {s = genderForms "vilken" "vilket" ; n = Sg ; det = DIndef} ;
  whoSg_IP = {s = vem.s ; gn = SgUtr} ;
  whoPl_IP = {s = vem.s ; gn = Plg} ;
  why_IAdv = ss "varför" ;
  without_Prep = ss "utan" ;
  with_Prep = ss "med" ;
  ye_Pron = mkNP "ni" "er" "er" "ert" "era"  Plg P2 ;
  yes_Phr = ss ["ja"] ;
  you_Pron = mkNP "ni" "er" "er" "ert" "era"  SgUtr P2 ; --- wrong in refl

-- Auxiliaries that are used repeatedly.

  oper
    vem = mkNP "vem" "vem" "vems" "vems" "vems" SgUtr P3 ;

}

-}