{VERSION 5 0 "SUN SPARC SOLARIS" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 3 0 }1 0 0 
-1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 2 7 1 {CSTYLE "" -1 -1 "
" 0 1 0 0 255 1 0 0 0 0 0 0 1 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }
{PSTYLE "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 0 0 0 0 0 0 
0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 
1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 
0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "with(StringTools);" 
}}{PARA 7 "" 1 "" {TEXT -1 42 "`Warning, the name Map has been rebound
\\n`" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#7eo%'AndMapG%+CapitalizeG%%Cha
rG%-CharacterMapG%&ChompG%-CommonPrefixG%-CommonSuffixG%(CompareG%*Com
pareCIG%'DecodeG%%DropG%'EncodeG%'EscapeG%(ExplodeG%%FillG%.FirstFromL
eftG%/FirstFromRightG%.FormatMessageG%+FormatTimeG%.FromByteArrayG%&Gr
oupG%(ImplodeG%%IotaG%(IsASCIIG%(IsAlphaG%/IsAlphaNumericG%.IsBinaryDi
gitG%3IsControlCharacterG%(IsDigitG%*IsGraphicG%+IsHexDigitG%-IsIdenti
fierG%.IsIdentifier1G%(IsLowerG%-IsOctalDigitG%)IsPrefixG%,IsPrintable
G%.IsPunctuationG%(IsSpaceG%)IsSuffixG%(IsUpperG%%JoinG%)LeftFoldG%,Le
venshteinG%9LongestCommonSubSequenceG%7LongestCommonSubStringG%*LowerC
aseG%$MapG%&OrMapG%$OrdG%'RandomG%)RegMatchG%'RegSubG%'RemoveG%(Revers
eG%*RightFoldG%'SearchG%*SearchAllG%'SelectG%-SelectRemoveG%(SoundexG%
&SplitG%(SqueezeG%-StringBufferG%*SubStringG%+SubstituteG%.SubstituteA
llG%%TakeG%,ToByteArrayG%%TrimG%)TrimLeftG%*TrimRightG%*UpperCaseG" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "A:=cat(\"\\t\\n\",Select(Is
Printable,convert([seq(i,i=1..225)],bytes)));" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%\"AGQ\\q|*|+~!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFG
HIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz|fr|gr|hr|ir6\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 109 "A := \"\\t\\n !\\\"#$%&'(
)*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\\\]^_`abcdefghijk
lmnopqrstuvwxyz\{|\}~\";" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%\"AGQ\\q
|*|+~!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_
`abcdefghijklmnopqrstuvwxyz|fr|gr|hr|ir6\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 89 "StringtoList:=proc(x)\nlocal i;\nglobal A;\n[seq(Se
archText(x[i],A)-1,i=1..length(x))];\nend;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%-StringtoListGf*6#%\"xG6#%\"iG6\"F*7#-%$seqG6$,&-%+Se
archTextG6$&9$6#8$%\"AG\"\"\"F8!\"\"/F6;F8-%'lengthG6#F4F*6#F7F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "ListtoString:=proc(y)\nlocal
 i;\nglobal A;\ncat(seq(A[y[i]+1],i=1..nops(y)));\nend;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%-ListtoStringGf*6#%\"yG6#%\"iG6\"F*-%$catG6#-%
$seqG6$&%\"AG6#,&&9$6#8$\"\"\"F9F9/F8;F9-%%nopsG6#F6F*6#F2F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 170 "StV:=proc(x,n)\nlocal i,j, \+
textnums;\ntextnums:=StringtoList(cat(x,seq(\" \",i=1..modp(n-length(x
),n))));\n[seq([seq(textnums[(j-1)*n+i],i=1..n)],j=1..nops(textnums)/n
)];\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "StV(\"Hamlet\"
,2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%7$\"#U\"#n7$\"#z\"#y7$\"#r\"
#')" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "ll:=StV(\"Macbeth\",
2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#llG7&7$\"#Z\"#n7$\"#p\"#o7$
\"#r\"#')7$\"#u\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 138 "Vt
S:=proc(vects::list(\{list(integer),Vector(integer),vector(integer)\})
)\nlocal l;\nl:=map(convert,vects,list);\nListtoString(map(op,l));\nen
d;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "VtS(ll);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%$VtSGf*6#'%&vectsG-%%listG6#<%-F*6#%(integerG-%'Vecto
rGF.-%'vectorGF.6#%\"lG6\"F6C$>8$-%$mapG6%%(convertG9$F*-%-ListtoStrin
gG6#-F;6$%#opGF9F6F6F6" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q)Macbeth~6
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 408 "AffineMat:=proc(x::s
tring,a::\{matrix(rational),Matrix(rational),list(list(rational))\},\n
B::\{vector(rational),Vector(rational), list(rational)\})\nlocal p,n,v
text,vcrypt,i;\nglobal A;\nwith(LinearAlgebra):\np:=length(A);\nn:=nop
s(convert(B,list));\nif(gcd(Determinant(a),p) >1 ) then\n    error(\"i
mpossible\");\nfi;\nvtext:=StV(x,n);\nvcrypt:=[seq(map(modp,evalm((a &
* vtext[i])+B),p),i=1..nops(vtext))];\nVtS(vcrypt);\nend;" }}{PARA 12 
"" 1 "" {XPPMATH 20 "6#>%*AffineMatGf*6%'%\"xG%'stringG'%\"aG<%-%'matr
ixG6#%)rationalG-%'MatrixGF/-%%listG6#-F4F/'%\"BG<%F6-%'vectorGF/-%'Ve
ctorGF/6'%\"pG%\"nG%&vtextG%'vcryptG%\"iG6\"FDC)-%%withG6#%.LinearAlge
braG>8$-%'lengthG6#%\"AG>8%-%%nopsG6#-%(convertG6$9&F4@$2\"\"\"-%$gcdG
6$-_FI%,DeterminantG6#9%FKYQ+impossibleFD>8&-%$StVG6$9$FQ>8'7#-%$seqG6
$-%$mapG6%%%modpG-%&evalmG6#,&-%#&*G6$F]o&Fao6#8(FenFXFenFK/Fip;Fen-FS
6#Fao-%$VtSG6#FgoFDFNFD" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 448 
"AffineMat := proc (x::string, a::\{Matrix(rational), list(list(ration
al)), matrix(rational)\}, B::\{list(rational), Vector(rational), vecto
r(rational)\}) local p, n, vtext, vcrypt, i; global A; with(LinearAlge
bra); p := length(A); n := nops(convert(B,list)); if 1 < gcd(LinearAlg
ebra:-Determinant(a),p) then error \"impossible\" end if; vtext := StV
(x,n); vcrypt := [seq(map(modp,evalm(`&*`(a,vtext[i])+B),p),i = 1 .. n
ops(vtext))]; VtS(vcrypt) end proc;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6
#>%*AffineMatGf*6%'%\"xG%'stringG'%\"aG<%-%'MatrixG6#%)rationalG-%%lis
tG6#-F2F/-%'matrixGF/'%\"BG<%F4-%'VectorGF/-%'vectorGF/6'%\"pG%\"nG%&v
textG%'vcryptG%\"iG6\"FDC)-%%withG6#%.LinearAlgebraG>8$-%'lengthG6#%\"
AG>8%-%%nopsG6#-%(convertG6$9&F2@$2\"\"\"-%$gcdG6$-_FI%,DeterminantG6#
9%FKYQ+impossibleFD>8&-%$StVG6$9$FQ>8'7#-%$seqG6$-%$mapG6%%%modpG-%&ev
almG6#,&-%#&*G6$F]o&Fao6#8(FenFXFenFK/Fip;Fen-FS6#Fao-%$VtSG6#FgoFDFNF
D" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "AA:=Matrix([[1,0],[0,1
]]);\nB:=Vector([0,0]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%#AAG-%'RT
ABLEG6%\"(w37&-%'MATRIXG6#7$7$\"\"\"\"\"!7$F/F.%'MatrixG" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"BG-%'RTABLEG6%\"(kla$-%'MATRIXG6#7$7#\"\"!F-
&%'VectorG6#%'columnG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "Af
fineMat(\"LADY MCDUFF\", AA,B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q-L
ADY~MCDUFF~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 45 "AffineMat
(\"This is a text\", [[0,1],[0,1]],B);" }}{PARA 8 "" 1 "" {TEXT -1 
265 "Error, (in LinearAlgebra:-Determinant) invalid input: LinearAlgeb
ra:-Determinant expects its 1st argument, \011\n !\"#$%&'()*+,-./01234
56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxy
z\{|\}~, to be of type Matrix(square) but received [[0, 1], [0, 1]]\n
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "13 0 0" 0 }
{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }
{RTABLE_HANDLES 5120876 3546564 }{RTABLE 
M7R0
I4RTABLE_SAVE/5120876X,%)anythingG6"6"[gl!"%!!!#%"#"#"""""!F(F'F&
}
{RTABLE 
M7R0
I4RTABLE_SAVE/3546564X*%)anythingG6"6"[gl!#%!!!"#"#""!F'F&
}