%%%% LEHYPHEN.TEX %% LEtter count hyphenation patterns
   %% for use with word tally.sty
   %% to let \LetterCount<text>\endLetterCount count the letters

 \begingroup
 \catcode`@=11
 
    %%% Globally set high ASCII to 12
  %%
    \count@="80
    \loop
   \global\catcode\the\count@=12
    \ifnum\count@<"FF
   \relax\advance\count@ by 1
    \repeat
 
 %%% Globally set their Cork default lc-uc codes   
  \newcount\Ct@
  \newcount\Ct@@
  \newcount\Ct@@@
  \toks0={% 
  \loop
  \Ct@=\count@\advance\Ct@ by 32 
    %% \count@ is Plain scratch counter \count255
  \global\uccode\the\count@=\the\count@
  \global\lccode\the\count@=\the\Ct@
  \global\uccode\the\Ct@=\the\count@
  \global\lccode\the\Ct@=\the\Ct@
  \ifnum\count@<\Ct@@
  \relax\advance\count@ by 1
  \repeat
  }
 
   \count@="80 \Ct@@="9E \the\toks0 %% segment "80 to "BF
   %% "9F is \S and "BF is pound
   \count@="C0 \Ct@@="DF \the\toks0 %% segment "C0 to "FF
   \lccode"BD=0\uccode"BD=0 %% !!
   \lccode"BD=0\uccode"BD=0 %% ??
 
  %% count figures as letters!?
\lccode`0=`0
\lccode`1=`1
\lccode`2=`2
\lccode`3=`3
\lccode`4=`4
\lccode`5=`5
\lccode`6=`6
\lccode`7=`7
\lccode`8=`8
\lccode`9=`9
\lccode`==`=


 \patterns{%
1^^301
1^^311
1^^321
1^^331
1^^341
1^^351
1^^361
1^^371
1^^381
1^^391
1<1
1=1
1>1
1a1
1b1
1c1
1d1
1e1
1f1
1g1
1h1
1i1
1j1
1k1
1l1
1m1
1n1
1o1
1p1
1q1
1r1
1s1
1t1
1u1
1v1
1w1
1x1
1y1
1z1
 }

 \patterns{%
 %1^^9D1 %% Turkish dot I
 1^^9E1 %% croatian \dj
 %1^^9F1 %% \S
 % 
1^^a01
 1^^a11
 1^^a21
 1^^a31
 1^^a41
 1^^a51
 1^^a61
 1^^a71
 1^^a81
 1^^a91
 1^^aa1
 1^^ab1
 1^^ac1
 1^^ad1
 1^^ae1
 1^^af1
  %
 1^^b01
 1^^b11
 1^^b21
 1^^b31
 1^^b41
 1^^b51
 1^^b61
 1^^b71
 1^^b81
 1^^b91
 1^^ba1
 1^^bb1
 1^^bc1
 %1^^bd1 %% !!
 %1^^be1 %% ??
 %1^^bf1 %% pound
  %
 1^^e01
 1^^e11
 1^^e21
 1^^e31
 1^^e41
 1^^e51
 1^^e61
 1^^e71
 1^^e81
 1^^e91
 1^^ea1
 1^^eb1
 1^^ec1
 1^^ed1
 1^^ee1
 1^^ef1
  %
 1^^f01
 1^^f11
 1^^f21
 1^^f31
 1^^f41
 1^^f51
 1^^f61
 1^^f71
 1^^f81
 1^^f91
 1^^fa1
 1^^fb1
 1^^fc1
 1^^fd1
 1^^fe1
 1^^ff1
 }

 \endgroup