 \catcode`\@=11

 %%% fr-us.tex
 %%  part of fe-format-dumper-cm directory
 %%  L. Siebenmann, 5-92
 %%  Documentation in fe-dump.doc
 %%  Loads French and US English 
 %%  hyphenation patterns and exceptions.
 %%  Input under plain.tex with catcode of @ equal 11
 %%  \US, \FR commands used later on
 %%  Default setting \FR.

 \def\NewLanguage{\alloc@9\language\chardef\@cclvi}
   %% like \newlanguage but more accessible

 \def\@ltnewcount{\csname newcount\endcsname }

 %%% protect TeX2.xx
 \let\temp\relax
 \ifx\undefined\inputlineno
   \def\temp{%
    \csname newcount\endcsname \language
    \csname newcount\endcsname \errorcontextlines
    \csname newcount\endcsname \lefthyphenmin
    \csname newcount\endcsname \righthyphenmin
    \csname newdimen\endcsname \emergencystretch
    \let\NewLanguage\@ltnewcount}
  \fi
 \temp

 %%%%%%%%%%% Language definitions loading

 \newcount\l@EC % European community virtual language
 \l@EC=0
   \def\EC{\language=\l@EC} 

 \NewLanguage\l@US
   %% replace by others: Espagne, Italie, ...
 \def\US{\language=\l@US \lccode`\'=0}

 \NewLanguage\l@FR
  %% Use automobile nationality codes: FR, US, ...(Haralambous)
 \def\FR{\language=\l@FR \lccode`\'=`\'}
 %% apostrophe is a letter in french jus-qu'a, l'ha-bi-tude
 %% see \patterns of Desarmenien

 \NewLanguage\l@LE %% 
  %% fake language for lettercounts with wordcnt.sty
  
  %% see further fake language from email-fr.hph 
    
 %%%%%%%%%%% Pattern loading
  %% \l@EC has empty pattern set

  %% French
 \language=\l@FR
 \ifx\undefined\inputlineno
    \def\FRpatterns{\input fr7hyph.tex }%
 \else
    \def\FRpatterns{%
      \begingroup
        \input fr8hyph.ck 
        \input fr8hyph.src
      \endgroup}%
 \fi
 \FRpatterns 

 %%%%%%%%%%%%%%% end here if TeX <=2.x (French only)
\ifx\undefined\inputlineno\expandafter\endinput\fi

  %% USEnglish
 \language=\l@US
       %% \l@... standard name scheme (Mattes)
 \input ushyphen 

  %% LEttercount language
 \language=\l@LE
 \input lehyphen.tex %%its hyphenation table

  \FR % French used by default

  %%% tiny patern set for language \l@emailFR of email-fr.fix
  \input email-fr.hph

