{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):" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "A:=cat(\"\\t\\n\",Select(
IsPrintable,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 89 "StringtoList:=proc(x)\nloc
al i;\nglobal A;\n[seq(SearchText(x[i],A)-1,i=1..length(x))];\nend;" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-StringtoListGf*6#%\"xG6#%\"iG6\"F*
7#-%$seqG6$,&-%+SearchTextG6$&9$6#8$%\"AG\"\"\"F8!\"\"/F6;F8-%'lengthG
6#F4F*6#F7F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 79 "ListtoStrin
g:=proc(y)\nlocal i;\nglobal A;\ncat(seq(A[y[i]+1],i=1..nops(y)));\nen
d;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%-ListtoStringGf*6#%\"yG6#%\"iG
6\"F*-%$catG6#-%$seqG6$&%\"AG6#,&&9$6#8$\"\"\"F9F9/F8;F9-%%nopsG6#F6F*
6#F2F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "StringtoList(\"th
is is a test\");" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#70\"#')\"#u\"#v\"#
&)\"\"#F&F'F(\"#nF(F$\"#rF'F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 10 "length(A);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#(*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 21 "StringtoList(\"the \");" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#7&\"#')\"#u\"#r\"\"#" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 177 "StV:=proc(x::string,n::posint)\nlocal textnum
;\ntextnum:=StringtoList(cat(x,seq(\" \",i=1..modp(n-length(x),n))));
\n[seq([seq(textnum[(j-1)*n+i],i=1..n)],j=1..nops(textnum)/n)];\nend;
" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%$StVGf*6$'%\"xG%'stringG'%\"nG%'
posintG6#%(textnumG6\"F/C$>8$-%-StringtoListG6#-%$catG6$9$-%$seqG6$Q\"
~F//%\"iG;\"\"\"-%%modpG6$,&9%FA-%'lengthG6#F9!\"\"FF7#-F;6$7#-F;6$&F2
6#,&*&,&%\"jGFAFAFJFAFFFAFAF?FA/F?;FAFF/FV;FA*&-%%nopsG6#F2FAFFFJF/F/F
/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "StV(\"Macbeth\",3);" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 11 "" 1 "" {XPPMATH 20 "6
#7%7%\"#Z\"#n\"#p7%\"#o\"#r\"#')7%\"#u\"\"#F." }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 30 "LL:=StV(\"Romeo and Juliet\",3);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%#LLG7(7%\"#_\"#\")\"#z7%\"#rF(\"\"#7%\"#n\"#!)\"
#q7%F,\"#W\"#()7%\"#y\"#vF+7%\"#')F,F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "map(op,LL);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#74\"#_
\"#\")\"#z\"#rF%\"\"#\"#n\"#!)\"#qF(\"#W\"#()\"#y\"#vF'\"#')F(F(" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "ListtoString(%);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#Q3Romeo~and~Juliet~~6\"" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 83 "VtS:=proc(vects)\nlocal l;\nl:=map(convert,v
ects,list);\nListtoString(map(op,l));\nend;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%$VtSGf*6#%&vectsG6#%\"lG6\"F*C$>8$-%$mapG6%%(convertG
9$%%listG-%-ListtoStringG6#-F/6$%#opGF-F*F*F*" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 8 "VtS(LL);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q3Rom
eo~and~Juliet~~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 307 "Affi
nemat:=proc(x::string,a,B)\nglobal A;\nlocal vtext,vcrypt,n,p;\np:=len
gth(A);\nwith(LinearAlgebra);\nn:=nops(convert(B,list));\nif (modp(Det
erminant(a),p)>1) then\nerror(\"Matrix must be invertible!\");\nfi;\nv
text:=StV(x,n);\nvcrypt:=[seq(map(modp,evalm((a &* vtext[i])+B,p)),\ni
=1..nops(vtext))];\nVtS(vcrypt);\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 
1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%*AffinematGf*6%'%\"xG%'st
ringG%\"aG%\"BG6&%&vtextG%'vcryptG%\"nG%\"pG6\"F1C)>8'-%'lengthG6#%\"A
G-%%withG6#%.LinearAlgebraG>8&-%%nopsG6#-%(convertG6$9&%%listG@$2\"\"
\"-%%modpG6$-%,DeterminantG6#9%F4YQ;Matrix~must~be~invertible!F1>8$-%$
StVG6$9$F>>8%7#-%$seqG6$-%$mapG6$FK-%&evalmG6$,&-%#&*G6$FP&FT6#%\"iGFI
FEFIF4/Feo;FI-F@6#FT-%$VtSG6#FZF1F7F1" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 43 "AA:=Matrix([[1,0],[1,1]]);B:=Vector([0,0]);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%#AAG-%'RTABLEG6%\"(+\\C\"-%'MATRIXG6#7$7$
\"\"\"\"\"!7$F.F.%'MatrixG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%
'RTABLEG6%\"('\\%*Q-%'MATRIXG6#7$7#\"\"!F-&%'VectorG6#%'columnG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "Affinemat(\"this is a test\"
, AA, B);" }}{PARA 7 "" 1 "" {TEXT -1 39 "Warning, the name Map has be
en rebound\n" }}{PARA 8 "" 1 "" {TEXT -1 202 "Error, (in Affinemat) ca
nnot determine if this expression is true or false: -Determinant(Matri
x(2, 2, [[...],[...]], datatype = anything, storage = rectangular, ord
er = Fortran_order, shape = [])) < -1\n" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "14 2 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }{RTABLE_HANDLES 1244900 3894496 }
{RTABLE 
M7R0
I4RTABLE_SAVE/1244900X,%)anythingG6"6"[gl!"%!!!#%"#"#"""F'""!F'F&
}
{RTABLE 
M7R0
I4RTABLE_SAVE/3894496X*%)anythingG6"6"[gl!#%!!!"#"#""!F'F&
}