{VERSION 5 0 "Windows XP" "5.0" }
{USTYLETAB {PSTYLE "Heading 4" -1 20 1 {CSTYLE "" -1 -1 "Times" 1 10 
0 0 0 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Or
dered List 5" -1 200 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2
 2 1 0 0 1 }1 1 0 0 3 3 2 144 2 0 2 2 -1 1 }{PSTYLE "Ordered List 1" 
-1 201 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 
1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1
 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 
2 2 -1 1 }{PSTYLE "Bullet Item" -1 15 1 {CSTYLE "" -1 -1 "Times" 1 12 
0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }{PSTYLE "Le
ft Justified Maple Output" -1 12 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0
 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Help" 
-1 10 1 {CSTYLE "" -1 -1 "Courier" 1 9 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }
1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Author" -1 19 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 8 8 2 0 2 0 2 2 
-1 1 }{PSTYLE "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1 10 64 
128 64 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "H
eading 2" -1 4 1 {CSTYLE "" -1 -1 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 1 0
 0 1 }1 1 0 0 8 2 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 3" -1 202 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3
 2 72 2 0 2 2 -1 1 }{PSTYLE "Maple Plot" -1 13 1 {CSTYLE "" -1 -1 "Tim
es" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Annotation Title" 
-1 203 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 2 2 2 2 1 0 0 1 }3 
1 0 0 12 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Dash Item" -1 16 1 {CSTYLE "" 
-1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 
2 -1 1 }{PSTYLE "Heading 3" -1 5 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0
 1 1 1 2 2 2 2 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered
 List 4" -1 204 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 
0 0 1 }1 1 0 0 3 3 2 108 2 0 2 2 -1 1 }{PSTYLE "Maple Output" -1 11 1 
{CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }3 1 0 0 0 0
 2 0 2 0 2 2 -1 1 }{PSTYLE "List Item" -1 14 1 {CSTYLE "" -1 -1 "Times
" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 0 2 0 2 2 -1 1 }
{PSTYLE "Line Printed Output" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 10 0
 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "F
ixed Width" -1 17 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 1 2 2 2 2 2 
2 1 0 0 1 }3 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Warning" -1 7 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0
 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Error" -1 8 1 {CSTYLE "" -1 -1 "Courie
r" 1 10 255 0 255 1 2 2 2 2 2 1 1 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 
}{PSTYLE "Heading 1" -1 3 1 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 
2 2 2 2 1 0 0 1 }1 1 0 0 8 4 2 0 2 0 2 2 -1 1 }{PSTYLE "Title" -1 18 1
 {CSTYLE "" -1 -1 "Times" 1 18 0 0 0 1 2 1 1 2 2 2 1 0 0 1 }3 1 0 0 12
 12 2 0 2 0 2 2 -1 1 }{PSTYLE "Ordered List 2" -1 205 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 0 0 1 }1 1 0 0 3 3 2 36 2 0 2 2 
-1 1 }{CSTYLE "Help Variable" -1 25 "Courier" 1 12 0 0 0 1 2 2 2 2 2 2
 0 0 0 1 }{CSTYLE "Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0
 1 }{CSTYLE "Help Bold" -1 39 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1
 }{CSTYLE "Page Number" -1 33 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1
 }{CSTYLE "2D Math Italic Small" -1 201 "Times" 1 1 0 0 0 1 1 2 2 2 2 
2 0 0 0 1 }{CSTYLE "Help Nonterminal" -1 24 "Courier" 1 12 0 0 0 1 2 1
 2 2 2 2 0 0 0 1 }{CSTYLE "Default" -1 38 "Times" 1 12 0 0 0 1 2 2 2 2
 2 2 0 0 0 1 }{CSTYLE "Maple Comment" -1 21 "Courier" 1 12 0 0 0 1 2 1
 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input" -1 0 "Courier" 1 12 255 0 0 1 
2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Small" -1 7 "Times" 1 1 0 0 0 1 
2 2 2 2 2 2 0 0 0 1 }{CSTYLE "2D Inert Output" -1 202 "Times" 1 12 144
 144 144 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Help Fixed" -1 23 "Courier" 1
 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Popup" -1 31 "Times" 1 12 0 
128 128 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "Plot Title" -1 27 "Times" 1 10
 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 
255 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Copyright" -1 34 "Times" 1 10 
0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Maple Input Placeholder" -1 203 
"Courier" 1 12 200 0 200 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Math Bold \+
Small" -1 10 "Times" 1 1 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math
" -1 2 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Annotation T
ext" -1 204 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help No
tes" -1 37 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Und
erlined Bold" -1 41 "Times" 1 12 0 0 0 1 1 1 2 2 2 2 0 0 0 1 }{CSTYLE 
"Hyperlink" -1 17 "Times" 1 12 0 128 128 1 2 2 1 2 2 2 0 0 0 1 }
{CSTYLE "2D Math Symbol 2" -1 16 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 
0 1 }{CSTYLE "Equation Label" -1 205 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 
0 0 0 1 }{CSTYLE "Plot Text" -1 28 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0 0
 0 1 }{CSTYLE "Help Italic" -1 42 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0
 0 1 }{CSTYLE "Help Heading" -1 26 "Times" 1 14 0 0 0 1 2 1 2 2 2 2 0 
0 0 1 }{CSTYLE "Output Labels" -1 29 "Times" 1 8 0 0 0 1 2 2 2 2 2 2 0
 0 0 1 }{CSTYLE "Help Normal" -1 30 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0
 0 0 1 }{CSTYLE "2D Comment" -1 18 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 
0 0 1 }{CSTYLE "Help Maple Name" -1 35 "Times" 1 12 104 64 92 1 2 1 2 
2 2 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 0 0 255 1 2 2 2 
2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 "Times" 1 12 147 0
 15 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Emphasized" -1 22 "Times" 1 
12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Italic Bold" -1 40 "Time
s" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }{CSTYLE "LaTeX" -1 32 "Times" 1 
12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Help Menus" -1 36 "Times" 1 
12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Prompt" -1 1 "Courier" 1 12 0
 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined" -1 44 "Times" 1 
12 0 0 0 1 2 2 1 2 2 2 0 0 0 1 }{CSTYLE "Help Underlined Italic" -1 43
 "Times" 1 12 0 0 0 1 1 2 1 2 2 2 0 0 0 1 }{CSTYLE "2D Math Bold" -1 5
 "Times" 1 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "2D Math Italic" -1
 3 "Times" 1 12 0 0 0 1 1 2 2 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "with(linalg): with(
numtheory): with(plots):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 219 "numb:=
table([\" \"=0,\"a\"=1, \"b\"=2, \"c\"=3, \"d\"=4, \"e\"=5, \"f\"=6, \+
\"g\"=7, \"h\"=8, \"i\"=9, \"j\"=10, \"k\"=11, \"l\"=12, \"m\"=13, \"n
\"=14, \"o\"=15, \"p\"=16, \"q\"=17, \"r\"=18, \"s\"=19, \"t\"=20, \"u
\"=21, \"v\"=22, \"w\"=23, \"x\"=24, \"y\"=25, \"z\"=26]):" }}{PARA 0 
"> " 0 "" {MPLTEXT 1 0 194 "alph:=table([0=\" \",1=\"a\",2=\"b\",3=\"c
\",4=\"d\",5=\"e\",6=\"f\",7=\"g\",8=\"h\",9=\"i\",10=\"j\",11=\"k\",1
2=\"l\",13=\"m\",14=\"n\",15=\"o\",16=\"p\",17=\"q\",18=\"r\",19=\"s\"
,20=\"t\",21=\"u\",22=\"v\",23=\"w\",24=\"x\",25=\"y\",26=\"z\"]):" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "shift:=proc(txt,n) " }}{PARA 0 "> "
 0 "" {MPLTEXT 1 0 16 "   local i, z;  " }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 12 "   z :=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "   for i fr
om 1 while i<= length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 61 "  \+
   z:=cat(z,(alph[(numb[substring(txt,i)]+n-1 mod 26)+1]));" }}{PARA 0
 "> " 0 "" {MPLTEXT 1 0 10 "   end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 13 "   return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "end: " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "allshifts:= proc(txt)" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 12 "    local i;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 30 "    for i from 0 while i<26 do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 24 "    print(shift(txt,i));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 " \+
   end do;   " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 27 "affinecrypt:= proc(txt,m,n)" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 14 "    local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "    z:=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "for i from 1 wh
ile i<=length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 65 "     z:=ca
t(z,(alph[((numb[substring(txt,i)]-1)*m+n mod 26)+1]));" }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 11 "    end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
14 "    return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 22 "vigenere:= proc(txt,v)" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 14 "    local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "    z:=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "for i from 1 wh
ile i<=length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "    z:=cat
(z,alph[(numb[substring(txt,i)]+v[(i-1 mod nops(v))+1]-1 mod 26)+1]);"
 }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "    end do;" }}{PARA 0 "> " 0 ""
 {MPLTEXT 1 0 14 "    return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "
end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "choose:=proc(txt,m,n)" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "    local i,z;" }}{PARA 0 "> " 0 ""
 {MPLTEXT 1 0 12 "    z:=NULL;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 " \+
for i from n by m while i<= length(txt) do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "     z:=cat(z,substring(txt,i));" }}{PARA 0 "> " 0 ""
 {MPLTEXT 1 0 9 "  end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "retur
n(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 20 "frequency:=proc(txt)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 78 "   local i,j,k,v,z;  z:=[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0,0,0];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "  for i from 1 wh
ile i<= length(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "   j:=num
b[substring(txt,i)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "   z:=subso
p(j=z[j]+1,z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "   end do;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "return(z);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "vigvec:= pr
oc(txt,m,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "  local w,z,i;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "  z:=choose(txt,m,n);" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 31 "  w:=frequency(z)/length(z)*1.;" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 11 " return(w);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 165 "alfreq:=[.082, .015, \+
.028, .043, .127, .022, .020, .061, .070, .002, .008, .040, .024, .067
, .075, .019, .001, .060, .063, .091, .028, .010, .023, .001, .020, .0
01]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "corr:=proc(v)" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 17 "   local i,j,w,z;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 45 "   w:=augment(matrix(1,26,v),matrix(1,26,v));" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 53 "   z:=seq(sum(alfreq[i]*w[1,i+j-1],
i=1..26),j=1..26);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 " return(z);" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 18 "coinc:=proc(txt,s)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "  lo
cal i,w,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "  z:=0;" }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 42 "  for i from 1 while i <= length(txt)-s do" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 2 "  " }{TEXT 206 1 " " }{MPLTEXT 1 0 
64 "if substring(txt,i)=substring(txt,i+s) then z:=z+1 else z:=z fi;" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "  end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 " return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "lfsr:=proc(c,k,n) " }}{PARA 0 "
> " 0 "" {MPLTEXT 1 0 18 "  local f,i,j,r,z;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 25 "  z:=matrix(1,nops(k),k);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 38 "   for i from 1 while i<= n-nops(c) do" }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 68 "z:=augment(z,matrix(1,1,[sum(z[1,j+i-1]*c[j],j
=1..nops(c)) mod 2]));" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "   end do
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "  z:=row(z,1);z:=[seq(z[i],i=1
..n)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "  end:" }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 21 "lfsrlength:=proc(v,n)" }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 19 "  local w,z,i,j,k; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "  f
or k from 1 while k<=n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "  w:=a
rray(1..k,1..k);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "  for i from 1 \+
while i<= k do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "  for j from 1 wh
ile j<= k do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "   w[i,j]:=v[i+j-1]
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 " print(
[k,det(w) mod 2]);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 " end:" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 20 "lfsrsolve:=proc(v,n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "  l
ocal w1,w,z,i,j,k;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "  w1:=array(1
..n,1..1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "  w:=array(1..n,1..n)
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "  for i from 1 while i<= n do"
 }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "  for j from 1 while j<= n do" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "   w[i,j]:=v[i+j-1];" }}{PARA 0 ">
 " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "
 end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 " for i from 1 while i<=
 n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 " w1[i,1]:=v[i+n]; " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "   end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 51 " z:=evalm(det(w)*transpose(evalm(inverse(w)&*w1)));" 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "z:=map(x->x mod 2,z); z:=[seq(z[1
,i],i=1..n)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 3 " z;" }}{PARA 0 "> "
 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "  tex
t2num:=proc(txt)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "   local i,z; z
:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "   for i from 1 while i<=le
ngth(txt) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "   z:=100*z+numb[su
bstring(txt,i)];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "  end do;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "  return(z);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 6 "  end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "num2text:
=proc(n)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 27 " local i,w,z; z:=NULL;w
:=n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 36 "   for i from 1 while 100^(
i-1)<n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 "   z:=cat(alph[w mod 1
00],z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "   w:=floor(w/100);" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "  end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 12 "  return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "  e
nd:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 51 "cards:=[200514,10010311,1721
050514,11091407,10305]:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "with(com
binat,randperm):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "khide:=proc();2
*rand()+101;end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "shuffle:=proc(k
)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 " local z; " }}{PARA 0 "> " 0 "
" {MPLTEXT 1 0 90 "z:=randperm(\{cards[1]&^k,cards[2]&^k,cards[3]&^k,c
ards[4]&^k,cards[5]&^k\}mod 24691313099);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "return(z); end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 
"reveal:=proc(c) " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "  local  k1,z;
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "  k1:= k&^(-1) mod 24691313098;
" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "  z:=[c[1]&^k1,c[2]&^k1,c[3]&^k
1,c[4]&^k1,c[5]&^k1] mod 24691313099;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 80 "z:=[num2text(z[1]),num2text(z[2]),num2text(z[3]),num2text(z[4]),
num2text(z[5])];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "  return(z); " 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 15 "advise:=proc(v)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " local \+
i,w,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 " w:=1; " }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 26 " for i from 1 while w=1 do" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 47 "  w:=v[i]&^((24691313099-1)/2) mod 24691313099;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 " return(i-1);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "en
d: " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "addell:=proc(p1,p2,a,b,n)" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "  local z,z1,m,x3,y3,p3;" }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 7 "  z:=0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
8 "  z1:=1;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 62 "  if p1=[\"infinity
\",\"infinity\"] then p3:=p2; z:=1 else end if;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 75 "  if p2=[\"infinity\",\"infinity\"] then p3:=p1; z:=1 else en
d       if end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then \+
NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 81 "  if p1[1]=p2[1] and \+
p1[2]=0 then   p3:=[\"infinity\",\"infinity\"]; z:=1 else end if" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "  end if;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 " if z=1 then NULL else" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 39 "  if p1[1]=p2[1] and p1[2]<>p2[2] then " }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 55 "  p3:=[\"infinity\",\"infinity\"]; z:=1 else end if e
nd if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " 
}}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "  if p1=p2 and gcd(p1[2],n)<>1 an
d gcd(p1[2],n)<>n" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "   then z1:=gc
d(p1[2],n); z:=1 else end if end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 102 " \+
   if p1=p2 then m:=((3*p1[1]^2+a)*((2*p1[2])&^(-1) mod n)) mod n; z:=
1; x3:=(m^2-p1[1]-p2[1]) mod n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "
 y3:=(m*(p1[1]-x3)-p1[2]) mod n;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 
"p3:=[x3,y3];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "else end if end if
;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 23 " if z=1 then NULL else " }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "  if gcd(p2[1]-p1[1],n)<>1 then z:=
1;z1:=gcd(p2[1]-p1[1],n) else end if end if;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 " if z=1 then NULL else " }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 56 "  m:= ((p2[2]-p1[2])*((p2[1]-p1[1])&^(-1) mod n)) mod n;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "  x3:=(m^2-p1[1]-p2[1]) mod n; y3:=
 (m*(p1[1]-x3)-p1[2]) mod n; p3:= [x3,y3] end if;" }}{PARA 0 "> " 0 ""
 {MPLTEXT 1 0 59 "if z1=1 then return(p3) else return([\"factor=\",z1]
) end if;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0 "> " 0 
"" {MPLTEXT 1 0 26 "multsell:=proc(p1,m,a,b,n)" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 " local i,z;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 " z:
=[[1,p1]];" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 54 " for i from 2 while i
<=m and z[-1][2][1]<>\"factor=\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
55 " z:=[op(z),[1+nops(z),addell(p1,z[nops(z)][2],a,b,n)]];" }}{PARA 0
 "> " 0 "" {MPLTEXT 1 0 9 "  end do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 " return(z);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "end:" }}{PARA 0
 "> " 0 "" {MPLTEXT 1 0 24 "multell:=proc(p,m,a,b,n)" }}{PARA 0 "> " 0
 "" {MPLTEXT 1 0 18 " local i,j,q,y,z1;" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 28 " y:=[\"infinity\",\"infinity\"];" }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 6 " q:=p;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 " z1:=m; " }}{PARA 
0 "> " 0 "" {MPLTEXT 1 0 48 " for i from 1 while z1<>0 and y[1]<>\"fac
tor=\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "  for j from 1 while z
1 mod 2 = 0  and q[1]<>\"factor=\" do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 
0 42 "   z1:=z1/2; q:=addell(q,q,a,b,n); end do;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 50 "  z1:=z1-1; y:=addell(q,y,a,b,n); end do;         " }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "  if q[1]=\"factor=\" then y:=q el
se NULL end if; " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 " " }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 11 " return(y);" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
4 "end:" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "gaul:= \"gaulisdividedin
tothreeparts\":" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "ycve:= \"ycvejqw
vhqtdtwvwu\":\n" }{MPLTEXT 1 0 40 "edsg:= \"edsgickxhuklzveqzvkxwkzukc
vuh\":\n" }{MPLTEXT 1 0 151 "tcab:= \"tcabtiqmfheqqmrmvmtmaq\": lcll:=
\"lcllewljazlnnzmvyiylhrmhza\":            DNA:= \"GAATTCGCGGCCGCAATTA
ACCCTCACTAAAGGGATCTCTAGAACT\":                " }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 82 "xkju:= \"xkjurowmllpxwznpimbvbqjcnowxpcchhvvfvsllfvxh
azityxohulxqojaxelxzxmyjaqfs\\\n" }{MPLTEXT 1 0 80 "tsrulhhucdskbxknjq
idallpqslluhiaqfpbpcidsvcihwhwewthbtxrljnrsncihuvffuxvoukjlj\\\n" }
{MPLTEXT 1 0 80 "swmaqfvjwjsdyljogjxdboxajultucpzmpliwmlubzxvoodybafds
kxgqfadshxnxehsaruojaqfpf\\\n" }{MPLTEXT 1 0 80 "kndhsaafvulluwtaqfrup
wjrszxgpfutjqiynrxnyntwmhcukjfbirzsmehhsjshyonddzzntzmpli\\\n" }
{MPLTEXT 1 0 27 "lrwnmwmlvuryonthuhabwnvw\":\n" }{MPLTEXT 1 0 82 "ocwy
:= \"ocwyikoooniwugpmxwktzdwgtssayjzwyemdlbnqaaavsuwdvbrflauplooubfgqh
gcscmgz\\\n" }{MPLTEXT 1 0 80 "latoedcsdeidpbhtmuovpiekifpimfnoamvlpqf
xejsmxmpgkccaykwfzpyuavtelwhrhmwkbbvgtg\\\n" }{MPLTEXT 1 0 80 "uvtefjl
odfefkvpxsgrsorvgtajbsauhzrzalkwuowhgedefnswmrciwcpaaavogpdnfpktdbalsi
s\\\n" }{MPLTEXT 1 0 80 "urlnpsjyeatcuceesohhdarkhwotikbroqrdfmzghguce
bvgwcdqxgpbgqwlpbdaylooqdmuhbdqgm\\\n" }{MPLTEXT 1 0 8 "yweuik\":" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 80 "hdsf:= \"hdsfgvmkoowafweetcmfthskuc
aqbilgjofmaqlgspvatvxqbiryscpcfrmvswrvnqlszd\\\n" }{MPLTEXT 1 0 80 "mg
aoqsakmlupsqforvtwvdfcjzvgsoaoqsacjkbrsevbelvbksarlscdcaarmnvrysywxqgv
ellcyl\\\n" }{MPLTEXT 1 0 80 "uwwveoafgclazowafojdlhssfiksepsoywxafowl
bfcsocylngqsyzxgjbmlvgrggokgfgmhlmejab\\\n" }{MPLTEXT 1 0 80 "sjvgmlnr
vqzcrggcrghgeupcyfgtydycjkhqluhgxgzovqswpdvbwsffsenbxapasgazmyuhgsfhmf
\\\n" }{MPLTEXT 1 0 43 "tayjxmwznrsofrsoaopgauaaarmftqsmahvqecev\":\n"
 }{MPLTEXT 1 0 80 "vvhq:= \"vvhqwvvrhmusgjgthkihtssejchlsfcbgvwcrlryqt
fsvgahwkcuhwauglqhnslrljshbl\\\n" }{MPLTEXT 1 0 80 "tspisprdxljsveeghl
qwkasskuwepwqtwvspgoelkcqyfnsvwljsniqkgnrgybwlwgoviokhkazkqk\\\n" }
{MPLTEXT 1 0 80 "xzgyhcecmeiujoqkwfwvefqhkijrclrlkbienqfrjljsdhgrhlsfq
twlauqrhwdmwlgusgikkflryv\\\n" }{MPLTEXT 1 0 80 "cwvspgpmlkassjvoqxegg
veyggzmljcxxljsvpaivwikvrdrygfrjljslveggveyggeiapuuisfpbt\\\n" }
{MPLTEXT 1 0 30 "gnwwmuczrvtwglrwugumnczvile\":\n" }{MPLTEXT 1 0 78 "L
100:= [1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 0, \+
1, 0, \n" }{MPLTEXT 1 0 79 "      1, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, \+
0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, \n" }{MPLTEXT 1 0 79 "      0, 0, \+
1, 0, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, \n" 
}{MPLTEXT 1 0 79 "      0, 0, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
, 0, 1, 0, 0, 0, 1, 0, 0, \n" }{MPLTEXT 1 0 22 "      1, 0, 0, 0, 0]:
\n" }{MPLTEXT 1 0 80 "L011:= [0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0
, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0,\n" }{MPLTEXT 1 0 79 "       0, 1, 0, 0
, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1,\n" }
{MPLTEXT 1 0 14 "       0, 1]:\n" }{MPLTEXT 1 0 59 "L101:= [1, 0, 1, 0
, 0, 1, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1,\n" }{MPLTEXT 1 0 60 "      0,
 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1,\n" }{MPLTEXT 1 0 
79 "      1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1, \+
0, 1, 1, 1, \n" }{MPLTEXT 1 0 79 "      0, 1, 0, 1, 1, 0, 1, 0, 0, 1, \+
1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, \n" }{MPLTEXT 1 0 28 "      \+
0, 1, 1, 1, 0, 0, 0]:\n" }{MPLTEXT 1 0 80 "rsan:= 11438162575788886766
923577997614661201021829672124236256256184293570693\\\n" }{MPLTEXT 1 
0 60 "5245733897830597123563958705058989075147599290026879543541:\n" }
{MPLTEXT 1 0 13 "rsae:= 9007:\n" }{MPLTEXT 1 0 80 "rsaci:= 96869613754
62206147714092225435588290575999112457431987469512093081629\\\n" }
{MPLTEXT 1 0 60 "82251457083569314766228839896280133919905518299451578
15154:\n" }{MPLTEXT 1 0 73 "rsap:= 34905295108476509491478496199038981
33417764638493387843990820577:\n" }{MPLTEXT 1 0 74 "rsaq:= 32769132993
266709549961988190834461413177642967992942539798288533:\n" }{MPLTEXT 
1 0 67 "naive:= 152415787501905985701881832150835089037858868621211004
433:\n" }{MPLTEXT 1 0 68 "cnaive:= 14107746176556950024119950561785467
3388398574333341423525:\n" }{MPLTEXT 1 0 1441 "n1:=8834884587090814646
372459890377418962766907:                           sigpairm1:=4187265
53997094258577980055061305150940547956: sigpairs1:=7491426496415481015
20133634736865752883277237: sigpairm2:=1482376523249871234451241871713
0930: sigpairs2:=43176121628465441340112418672065063:      signa:=1710
24704183616109700818066925197841516671277: signb:=83907354273436935926
0871355939062622747633109:  sigpb:=98763457697834568934613: sigqb:=849
5789457893457345793:          golay:=matrix(12,24,[1,0,0,0,0,0,0,0,0,0
,0,0,1,1,1,0,1,1,1,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,1,0
,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,1,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0
,0,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,1,0,1,1
,0,1,1,1,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,1,0,0,0,0,0,0
,1,0,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,0,0,0,0,0,0,0,1,0,0,0,0,1,1,1,0,0
,0,1,0,1,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,1,1,1,1,0,0,0,1,0,1,1,0,0,0,0,0
,0,0,0,0,0,1,0,0,1,0,1,1,1,0,0,0,1,0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,1,1,0
,1,1,1,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,1,1,1,1,1,1,1,1,1,1,1]): \+
golayb:=matrix(12,12,[1,1,1,0,1,1,1,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0,0,1,
1,1,0,1,1,0,1,1,1,0,0,0,1,0,1,0,1,1,0,1,1,1,0,0,1,0,0,1,0,1,1,0,1,1,1,
0,1,0,0,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1,1,0,1,1,1,1,1,0,0,0,1,0,1,1,
0,1,1,1,1,1,0,0,0,1,0,1,1,0,1,0,1,1,1,0,0,0,1,0,1,1,1,1,0,1,1,1,0,0,0,
1,0,1,0,1,1,1,1,1,1,1,1,1,1,1]): hammingpc:=matrix(4,15,[0,0,0,0,1,1,1
,1,1,1,1,1,0,0,0,\n" }{MPLTEXT 1 0 61 "1,1,1,0,0,0,0,1,1,1,1,0,1,0,0,0
,1,1,1,0,1,1,0,0,1,1,0,0,1,0,\n" }{MPLTEXT 1 0 32 "1,0,1,1,1,0,1,0,1,0
,1,0,0,0,1]):" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 145 "XXXX:= \"DON'T FO
RGET TO HIT RETURN TO LOAD THE ABOVE COMMANDS BEFORE STARTING YOUR WOR
K. PUT THE CURSOR HERE, OR HIGHER, BEFORE HITTING RETURN.\":" }}}
{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "ocwy;" "-I%mrowG6#/I+modulenam
eG6\"I,TypesettingGI(_syslibGF'6$-I#miGF$6%Q%ocwyF'/%'italicGQ%trueF'/
%,mathvariantGQ'italicF'-I#moGF$6-Q\";F'/F3Q'normalF'/%&fenceGQ&falseF
'/%*separatorGF1/%)stretchyGF=/%*symmetricGF=/%(largeopGF=/%.movableli
mitsGF=/%'accentGF=/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.2777778emF'" }}
{PARA 11 "" 1 "" {XPPMATH 20 "Qc^locwyikoooniwugpmxwktzdwgtssayjzwyemd
lbnqaaavsuwdvbrflauplooubfgqhgcscmgzlatoedcsdeidpbhtmuovpiekifpimfnoam
vlpqfxejsmxmpgkccaykwfzpyuavtelwhrhmwkbbvgtguvtefjlodfefkvpxsgrsorvgta
jbsauhzrzalkwuowhgedefnswmrciwcpaaavogpdnfpktdbalsisurlnpsjyeatcuceeso
hhdarkhwotikbroqrdfmzghgucebvgwcdqxgpbgqwlpbdaylooqdmuhbdqgmyweuik6\""
 }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "length(ocwy);" "-I%mrowG6#
/I+modulenameG6\"I,TypesettingGI(_syslibGF'6%-I#miGF$6%Q'lengthF'/%'it
alicGQ%trueF'/%,mathvariantGQ'italicF'-I(mfencedGF$6$-F#6#-F,6%Q%ocwyF
'F/F2/F3Q'normalF'-I#moGF$6-Q\";F'F=/%&fenceGQ&falseF'/%*separatorGF1/
%)stretchyGFE/%*symmetricGFE/%(largeopGFE/%.movablelimitsGFE/%'accentG
FE/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.2777778emF'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"$7$" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "for i t
o 8 do coinc(ocwy, i) end do;" "-I%mrowG6#/I+modulenameG6\"I,Typesetti
ngGI(_syslibGF'66-I#moGF$6/Q$forF'/%%boldGQ%trueF'/%,mathvariantGQ%bol
dF'/%+fontweightGF4/%&fenceGQ&falseF'/%*separatorGF9/%)stretchyGF9/%*s
ymmetricGF9/%(largeopGF9/%.movablelimitsGF9/%'accentGF9/%'lspaceGQ&0.0
emF'/%'rspaceGFH-F,6-Q\"~F'/F3Q'normalF'F7F:F<F>F@FBFDFFFI-I#miGF$6%Q
\"iF'/%'italicGF1/F3Q'italicF'FK-F,6/Q%fromF'F/F2F5F7F:F<F>F@FBFDFFFIF
K-I#mnGF$6$Q\"1F'FNFK-F,6/Q#toF'F/F2F5F7F:F<F>F@FBFDFFFIFK-Ffn6$Q\"8F'
FNFK-F,6/Q#doF'F/F2F5F7F:F<F>F@FBFDFFFIFK-FQ6%Q&coincF'FTFV-I(mfencedG
F$6$-F#6%-FQ6%Q%ocwyF'FTFV-F,6-Q\",F'FNF7/F;F1F<F>F@FBFDFF/FJQ,0.33333
33emF'FPFN-F,6-Q\";F'FNF7F`pF<F>F@FBFDFF/FJQ,0.2777778emF'FK-F,6/Q#odF
'F/F2F5F7F:F<F>F@FBFDFFFIFcp" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#8" }}
{PARA 11 "" 1 "" {XPPMATH 20 "\"#8" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"
#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"'" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"#:" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"#B" }}{PARA 11 ""
 1 "" {XPPMATH 20 "\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"\"&" }}}
{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "for j to 6 do `:=`(ciphertxt[j
], choose(ocwy, 6, j)) end do;" "-I%mrowG6#/I+modulenameG6\"I,Typesett
ingGI(_syslibGF'69-I#moGF$6/Q$forF'/%%boldGQ%trueF'/%,mathvariantGQ%bo
ldF'/%+fontweightGF4/%&fenceGQ&falseF'/%*separatorGF9/%)stretchyGF9/%*
symmetricGF9/%(largeopGF9/%.movablelimitsGF9/%'accentGF9/%'lspaceGQ&0.
0emF'/%'rspaceGFH-F,6-Q\"~F'/F3Q'normalF'F7F:F<F>F@FBFDFFFI-I#miGF$6%Q
\"jF'/%'italicGF1/F3Q'italicF'FK-F,6/Q%fromF'F/F2F5F7F:F<F>F@FBFDFFFIF
K-I#mnGF$6$Q\"1F'FNFK-F,6/Q#toF'F/F2F5F7F:F<F>F@FBFDFFFIFK-Ffn6$Q\"6F'
FNFK-F,6/Q#doF'F/F2F5F7F:F<F>F@FBFDFFFIFK-FQ6%Q*ciphertxtF'FTFV-I(mfen
cedGF$6&-F#6#FPFN/%%openGQ\"[F'/%&closeGQ\"]F'-F,6-Q*&coloneq;F'FNF7F:
F<F>F@FBFD/FGQ,0.2777778emF'/FJFdp-FQ6%Q'chooseF'FTFV-Ffo6$-F#6)-FQ6%Q
%ocwyF'FTFV-F,6-Q\",F'FNF7/F;F1F<F>F@FBFDFF/FJQ,0.3333333emF'FKF\\oF`q
FKFPFN-F,6-Q\";F'FNF7FcqF<F>F@FBFDFFFepFK-F,6/Q#odF'F/F2F5F7F:F<F>F@FB
FDFFFIFfq" }}{PARA 11 "" 1 "" {XPPMATH 20 "QUoouktzlavubclcpoinpskwahb
ulkrtulhnianbujuhhbfuwppohy6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "QUcogt
swbvbpfsasbvfoqmcfvrbvovsahkgswvfarychwrmccbbobw6\"" }}{PARA 11 "" 1 "
" {XPPMATH 20 "QUwopzsynsrlgctdhppafxczthvtdpojzwewcoplleedoozedgdqde6
\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "QUynmdaequfoqmoetiimxmapemgefxrbru
dmpgksnaeatqgbqqadqu6\"" }}{PARA 11 "" 1 "" {XPPMATH 20 "QUiixwymawloh
geimemvepyylwtfesvszoeraptiptsrirhvxwymgi6\"" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "QUkwwgjdadaugzddukfljgkuwkgjfggaawfcaddsscokkdgggllumk6\"
" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "frequency(ciphertxt[1]);"
 "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6'-I#miGF$6%Q*f
requencyF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I(mfencedGF$6$-F
#6$-F,6%Q*ciphertxtF'F/F2-F66&-F#6#-I#mnGF$6$Q\"1F'/F3Q'normalF'FE/%%o
penGQ\"[F'/%&closeGQ\"]F'FE-I#moGF$6-Q\";F'FE/%&fenceGQ&falseF'/%*sepa
ratorGF1/%)stretchyGFS/%*symmetricGFS/%(largeopGFS/%.movablelimitsGFS/
%'accentGFS/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.2777778emF'-I'mspaceGF$6&/
%'heightGQ&0.0exF'/%&widthGQ&0.0emF'/%&depthGFeo/%*linebreakGQ(newline
F'-F,6#Q!F'" }}{PARA 11 "" 1 "" {XPPMATH 20 "7<\"\"$\"\"%\"\"#\"\"!F&
\"\"\"F&\"\"&F%F'F#F$F&F#F$F$F&F'F'F%\"\"(F'F%F&F'F'" }}}{EXCHG {PARA 
0 "> " 0 "" {XPPEDIT 19 1 "`:=`(v[1], vigvec(ocwy, 6, 1));" "-I%mrowG6
#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6*-I#miGF$6%Q\"vF'/%'itali
cGQ%trueF'/%,mathvariantGQ'italicF'-I(mfencedGF$6&-F#6#-I#mnGF$6$Q\"1F
'/F3Q'normalF'F>/%%openGQ\"[F'/%&closeGQ\"]F'-I#moGF$6-Q*&coloneq;F'F>
/%&fenceGQ&falseF'/%*separatorGFL/%)stretchyGFL/%*symmetricGFL/%(large
opGFL/%.movablelimitsGFL/%'accentGFL/%'lspaceGQ,0.2777778emF'/%'rspace
GFen-FG6-Q\"~F'F>FJFMFOFQFSFUFW/FZQ&0.0emF'/FgnF\\o-F,6%Q'vigvecF'F/F2
-F66$-F#6'-F,6%Q%ocwyF'F/F2-FG6-Q\",F'F>FJ/FNF1FOFQFSFUFWF[o/FgnQ,0.33
33333emF'-F;6$Q\"6F'F>FhoF:F>-FG6-Q\";F'F>FJF[pFOFQFSFUFWF[oFfnFhn" }}
{PARA 11 "" 1 "" {XPPMATH 20 "7<$\"+p2Bpd!#6$\"+#p2Bp(F%$\"+YQ:YQF%$\"
\"!F+F*$\"+Bp2B>F%F*$\"+:YQ:'*F%F(F,F#F&F*F#F&F&F*F,F,F($\"+YQ:Y8!#5F,
F(F*F,F," }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "Typesetting:-mrow
(Typesetting:-mi(\"corr\", italic = \"true\", mathvariant = \"italic\"
), Typesetting:-mfenced(Typesetting:-mrow(Typesetting:-mi(\"%\", itali
c = \"true\", mathvariant = \"italic\")), mathvariant = \"normal\"), T
ypesetting:-mo(\";\", mathvariant = \"normal\", fence = \"false\", sep
arator = \"true\", stretchy = \"false\", symmetric = \"false\", largeo
p = \"false\", movablelimits = \"false\", accent = \"false\", lspace =
 \"0.0em\", rspace = \"0.2777778em\"), Typesetting:-mo(\" \", mathvari
ant = \"normal\", fence = \"false\", separator = \"false\", stretchy =
 \"false\", symmetric = \"false\", largeop = \"false\", movablelimits \+
= \"false\", accent = \"false\", lspace = \"0.0em\", rspace = \"0.0em
\"));" "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6&-I#miGF
$6%Q%corrF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I(mfencedGF$6$-
F#6#-F,6%Q\"%F'F/F2/F3Q'normalF'-I#moGF$6-Q\";F'F=/%&fenceGQ&falseF'/%
*separatorGF1/%)stretchyGFE/%*symmetricGFE/%(largeopGFE/%.movablelimit
sGFE/%'accentGFE/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.2777778emF'-F@6-Q\"~F
'F=FC/FGFEFHFJFLFNFPFR/FVFT" }}{PARA 11 "" 1 "" {XPPMATH 20 "6<$\"+@p2
tT!#6$\"+YQ:@XF%$\"+Cp2BPF%$\"+$p2t^%F%$\"+YQ:YHF%$\"+$p2t,$F%$\"+Ap2)
>%F%$\"+F#pdg&F%$\"+*******z$F%$\"+i%Ql)RF%$\"+#p2t^$F%$\"+:YQlOF%$\"+
#p2t;$F%$\"+Bp2BRF%$\"+g%Q:6%F%$\"+j%Ql)QF%$\"+Cp2)4%F%$\"+[Q:@KF%$\"+
2Bp2NF%$\"+p2BWQF%$\"+H#pdv%F%$\"+Q:YQKF%$\"+R:Y)[%F%$\"+i%Ql$RF%$\"+,
+++LF%$\"+-++]HF%" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "max(%);"
 "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF'6%-I#miGF$6%Q$m
axF'/%'italicGQ&falseF'/%,mathvariantGQ'normalF'-I(mfencedGF$6$-F#6#-F
,6%Q\"%F'/F0Q%trueF'/F3Q'italicF'F2-I#moGF$6-Q\";F'F2/%&fenceGF1/%*sep
aratorGF>/%)stretchyGF1/%*symmetricGF1/%(largeopGF1/%.movablelimitsGF1
/%'accentGF1/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.2777778emF'" }}{PARA 11 "
" 1 "" {XPPMATH 20 "$\"+F#pdg&!#6" }}}{EXCHG {PARA 0 "> " 0 "" 
{XPPEDIT 19 1 "for k from 2 to 6 do `:=`(w[k], corr(vigvec(ocwy, 6, k)
)); max(%) end do;" "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_sysli
bGF'6<-I#moGF$6/Q$forF'/%%boldGQ%trueF'/%,mathvariantGQ%boldF'/%+fontw
eightGF4/%&fenceGQ&falseF'/%*separatorGF9/%)stretchyGF9/%*symmetricGF9
/%(largeopGF9/%.movablelimitsGF9/%'accentGF9/%'lspaceGQ&0.0emF'/%'rspa
ceGFH-F,6-Q\"~F'/F3Q'normalF'F7F:F<F>F@FBFDFFFI-I#miGF$6%Q\"kF'/%'ital
icGF1/F3Q'italicF'FK-F,6/Q%fromF'F/F2F5F7F:F<F>F@FBFDFFFIFK-I#mnGF$6$Q
\"2F'FNFK-F,6/Q#toF'F/F2F5F7F:F<F>F@FBFDFFFIFK-Ffn6$Q\"6F'FNFK-F,6/Q#d
oF'F/F2F5F7F:F<F>F@FBFDFFFIFK-FQ6%Q\"wF'FTFV-I(mfencedGF$6&-F#6#FPFN/%
%openGQ\"[F'/%&closeGQ\"]F'-F,6-Q*&coloneq;F'FNF7F:F<F>F@FBFD/FGQ,0.27
77778emF'/FJFdp-FQ6%Q%corrF'FTFV-Ffo6$-F#6$-FQ6%Q'vigvecF'FTFV-Ffo6$-F
#6)-FQ6%Q%ocwyF'FTFV-F,6-Q\",F'FNF7/F;F1F<F>F@FBFDFF/FJQ,0.3333333emF'
FKF\\oFgqFKFPFNFN-F,6-Q\";F'FNF7FjqF<F>F@FBFDFFFepFKFK-FQ6%Q$maxF'/FUF
9FN-Ffo6$-F#6#-FQ6%Q\"%F'FTFVFN-F,6/Q#odF'F/F2F5F7F:F<F>F@FBFDFFFIF]r"
 }}{PARA 11 "" 1 "" {XPPMATH 20 "6<$\"+I#pdg$!#6$\"+yI#>N%F%$\"+Q:Y))R
F%$\"+,++DQF%$\"+p2B%f$F%$\"+3BpKJF%$\"+<YQ:FF%$\"++++]QF%$\"+h%Q:T%F%
$\"+R:Y8TF%$\"+J#p2t%F%$\"+%Q:Y3$F%$\"+3Bp2IF%$\"+i%Q:m%F%$\"+m2B>kF%$
\"+q2B>MF%$\"+3BpKEF%$\"+$p2B%QF%$\"+9YQlTF%$\"+h%Q:h$F%$\"+Ap2BOF%$\"
+L#pdl$F%$\"+&Q:'fKF%$\"++++vUF%$\"+Ap2BWF%$\"+++++PF%" }}{PARA 11 "" 
1 "" {XPPMATH 20 "$\"+m2B>k!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6<$\"+
#p2Bu%!#6$\"+$p2tw$F%$\"+ah%)GOF%$\"+xI#p7%F%$\"+`h%)yMF%$\"+xI#>&GF%$
\"+&Q:YL$F%$\"+\"p2t6%F%$\"+j%Q:E$F%$\"+`h%)yIF%$\"+VQ:rWF%$\"+1Bp#3'F
%$\"+#p2B*QF%$\"+j%Ql3$F%$\"+*****\\(RF%$\"+L#p2e%F%$\"+Cp2BLF%$\"+***
***\\LF%$\"+g%Q:1%F%$\"+o2B%>$F%$\"+3Bp2FF%$\"+P:YQWF%$\"+;YQ:[F%$\"+'
Q:'4PF%$\"+$p2tc$F%$\"+J#pdX%F%" }}{PARA 11 "" 1 "" {XPPMATH 20 "$\"+1
Bp#3'!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6<$\"+Q:Y8Y!#6$\"++++]SF%$\"
++++vQF%$\"+i%Ql8$F%$\"+yI#p#RF%$\"+`h%)GMF%$\"+i%Q:T$F%$\"+i%Q:\"HF%$
\"+5Bp#y%F%$\"+R:Y8RF%$\"+5BpdNF%$\"+J#p2[$F%$\"+Q:Y)3'F%$\"+`h%)yVF%$
\"+%p2t\"HF%$\"+ZQ:rMF%$\"+S:Y)Q%F%$\"+xI#p#GF%$\"+ZQ:YJF%$\"+g%Q:E%F%
$\"+:YQ:NF%$\"+Q:YQJF%$\"+#p2B4%F%$\"+`h%)yWF%$\"+J#pd5%F%$\"+xI#>?%F%
" }}{PARA 11 "" 1 "" {XPPMATH 20 "$\"+Q:Y)3'!#6" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6<$\"+R:Yj]!#6$\"+p2BWOF%$\"+++++KF%$\"+yI#p_$F%$\"+Cp2Bg
F%$\"+R:Y))QF%$\"+M#p2G$F%$\"+$p2tw$F%$\"+j%Q:^%F%$\"+`h%Ql#F%$\"+4Bpd
NF%$\"+XQ:YWF%$\"+J#pdg$F%$\"+i%Q:h$F%$\"+i%Ql$QF%$\"+g%Q:Y%F%$\"+xI#>
g$F%$\"+Bp2tTF%$\"+3Bp2QF%$\"+wI#pK%F%$\"+<YQSRF%$\"+;YQSOF%$\"+S:YjOF
%$\"+,++vLF%$\"+R:YQNF%$\"+bh%Q&HF%" }}{PARA 11 "" 1 "" {XPPMATH 20 "$
\"+Cp2Bg!#6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6<$\"++++DJ!#6$\"+i%QlG$F
%$\"+`h%)G_F%$\"+Cp2BZF%$\"+I#p2e#F%$\"+h%QlG$F%$\"+H#pd!\\F%$\"+)****
\\#RF%$\"+yI#>5$F%$\"+Bp2[KF%$\"+ch%)yRF%$\"+g%Q:,$F%$\"+;YQSQF%$\"+vI
#pd$F%$\"+R:YQSF%$\"+Dp2[RF%$\"+3Bp#[$F%$\"+YQ:@PF%$\"+p2BpjF%$\"+&Q:'
fQF%$\"+p2BWFF%FD$\"+ah%Q&[F%$\"+S:YQHF%$\"+ZQ:rTF%$\"+XQ:rYF%" }}
{PARA 11 "" 1 "" {XPPMATH 20 "$\"+p2Bpj!#6" }}}{EXCHG {PARA 0 "> " 0 "
" {XPPEDIT 19 1 "`*`(max, `*`(w[2]));" "-I%mrowG6#/I+modulenameG6\"I,T
ypesettingGI(_syslibGF'6&-I#miGF$6%Q$maxF'/%'italicGQ&falseF'/%,mathva
riantGQ'normalF'-I#moGF$6-Q\"~F'F2/%&fenceGF1/%*separatorGF1/%)stretch
yGF1/%*symmetricGF1/%(largeopGF1/%.movablelimitsGF1/%'accentGF1/%'lspa
ceGQ&0.0emF'/%'rspaceGFI-I(mfencedGF$6$-F#6$-F,6%Q\"wF'/F0Q%trueF'/F3Q
'italicF'-FM6&-F#6#-I#mnGF$6$Q\"2F'F2F2/%%openGQ\"[F'/%&closeGQ\"]F'F2
-F66-Q\";F'F2F9/F<FUF=F?FAFCFEFG/FKQ,0.2777778emF'" }}{PARA 11 "" 1 ""
 {XPPMATH 20 "*&I$maxG%*protectedG\"\"\"6<$\"+I#pdg$!#6$\"+yI#>N%F)$\"
+Q:Y))RF)$\"+,++DQF)$\"+p2B%f$F)$\"+3BpKJF)$\"+<YQ:FF)$\"++++]QF)$\"+h
%Q:T%F)$\"+R:Y8TF)$\"+J#p2t%F)$\"+%Q:Y3$F)$\"+3Bp2IF)$\"+i%Q:m%F)$\"+m
2B>kF)$\"+q2B>MF)$\"+3BpKEF)$\"+$p2B%QF)$\"+9YQlTF)$\"+h%Q:h$F)$\"+Ap2
BOF)$\"+L#pdl$F)$\"+&Q:'fKF)$\"++++vUF)$\"+Ap2BWF)$\"+++++PF)F%" }}}
{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "vigenere(ocwy, [-7, -14, -11, \+
-12, -4, -18]);" "-I%mrowG6#/I+modulenameG6\"I,TypesettingGI(_syslibGF
'6%-I#miGF$6%Q)vigenereF'/%'italicGQ%trueF'/%,mathvariantGQ'italicF'-I
(mfencedGF$6$-F#6'-F,6%Q%ocwyF'F/F2-I#moGF$6-Q\",F'/F3Q'normalF'/%&fen
ceGQ&falseF'/%*separatorGF1/%)stretchyGFE/%*symmetricGFE/%(largeopGFE/
%.movablelimitsGFE/%'accentGFE/%'lspaceGQ&0.0emF'/%'rspaceGQ,0.3333333
emF'-F>6-Q\"~F'FAFC/FGFEFHFJFLFNFPFR/FVFT-F>6-Q*&uminus0;F'FAFCFenFHFJ
FLFNFP/FSQ,0.2222222emF'/FVF[o-F66&-F#6/-I#mnGF$6$Q\"7F'FAF=-Fbo6$Q#14
F'FAF=-Fbo6$Q#11F'FAF=-Fbo6$Q#12F'FAF=FX-Fbo6$Q\"4F'FAF=FX-Fbo6$Q#18F'
FAFA/%%openGQ\"[F'/%&closeGQ\"]F'FA-F>6-Q\";F'FAFCFFFHFJFLFNFPFR/FVQ,0
.2777778emF'" }}{PARA 11 "" 1 "" {XPPMATH 20 "Qc^lholmeshadbeenseatedf
orsomehoursinsilencewithhislongthinbackcurvedoverachemicalvesselinwhic
hhewasbrewingaparticularlymalodorousproducthisheadwassunkuponhisbreast
andhelookedfrommypointofviewlikeastrangelankbirdwithdullgreyplumageand
ablacktopknotsowatsonsaidhesuddenlyyoudonotproposetoinvestinsouthafric
ansecurities6\"" }}}{EXCHG {PARA 0 "> " 0 "" {XPPEDIT 19 1 "" "%#%?G" 
}}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2
 33 1 1 }