{VERSION 4 0 "SUN SPARC SOLARIS" "4.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 "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 48 "f:=proc(x)\n     y:=
x+1;\n     y:=sqrt(y);\n   end;" }}{PARA 7 "" 1 "" {TEXT -1 59 "Warnin
g, `y` is implicitly declared local to procedure `f`\n" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"fGR6#%\"xG6#%\"yG6\"F*C$>8$,&9$\"\"\"F0F0>F--%
%sqrtG6#F-F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(3);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 7 "x:=127;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"xG\"$F
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(7);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#,$*$-%%sqrtG6#\"\"#\"\"\"F(" }}}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 2 "x;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"$F\"" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 59 "f:=proc(x)\n    local y;\n
    y:=x+1;\n    y:=sqrt(y);\n   end;" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#>%\"fGR6#%\"xG6#%\"yG6\"F*C$>8$,&9$\"\"\"F0F0>F--%%sqrtG6#F-F*F*F*
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "f(7);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#,$*$-%%sqrtG6#\"\"#\"\"\"F(" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 5 "z:=3;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG\"
\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 73 "g:=proc(x)\n     loc
al y;\n     global z;\n     y:=x+1;\n     y:=y^z;\n   end;" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#>%\"gGR6#%\"xG6#%\"yG6\"F*C$>8$,&9$\"\"\"F0F
0>F-)F-%\"zGF*6#F3F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "g(3)
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#k" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 69 "h:=proc(x)\n    local y;\n    global z;\n    z:=z+1
;\n    y:=x^z;\n   end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"hGR6#%
\"xG6#%\"yG6\"F*C$>%\"zG,&F-\"\"\"F/F/>8$)9$F-F*6#F-F*" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "x:=7;\ny:=8;\nz:=2;" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#>%\"xG\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%
\"yG\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"zG\"\"#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "h(4);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#\"#k" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "x; y; z;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"(" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#\"\")" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 73 "j:=proc(x)\n     local y;     \n     3;\n   \+
  y:=x+5;\n     17+29;\n    end;\n\n" }}{PARA 11 "" 1 "" {XPPMATH 20 "
6#>%\"jGR6#%\"xG6#%\"yG6\"F*C%\"\"$>8$,&9$\"\"\"\"\"&F1\"#YF*F*F*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "w:=j(3);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"wG\"#Y" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
17 "j(17)-j(4)+j(10);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#Y" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 71 "k:=proc(x)\n     local y;\n \+
    x;\n     if x > 0 then y:=x+1; fi:\n   end;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"kGR6#%\"xG6#%\"yG6\"F*C$9$@$2\"\"!F,>8$,&F,\"\"\"F3
F3F*F*F*" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "k(2);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#\"\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 6 "k(-1);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "k:=proc(x)
\n   if x > 0 then x+1; fi:\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"kGR6#%\"xG6\"F(F(@$2\"\"!9$,&F,\"\"\"F.F.F(F(F(" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 5 "k(2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"
\"$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 6 "k(-1);" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "sqrt2:=proc(x)\n   if (x > 0) then
 \n         sqrt(x);\n   else \n         print(\"That is not a positiv
e number\");\n   fi;\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%&sqrt2
GR6#%\"xG6\"F(F(@%2\"\"!9$-%%sqrtG6#F,-%&printG6#Q>That~is~not~a~posit
ive~number6\"F(F(F(" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "sqrt2
(7);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#*$-%%sqrtG6#\"\"(\"\"\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "sqrt2(-3);" }}{PARA 11 "" 1 
"" {XPPMATH 20 "6#Q>That~is~not~a~positive~number6\"" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 115 "l:=proc(x,y)\n     if (x > y) then x;\n \+
    elif (y > x) then y;\n     else print(\"They are equal.\");\n     \+
fi;\n   end;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"lGR6$%\"xG%\"yG6\"
F)F)@'29%9$F-2F-F,F,-%&printG6#Q0They~are~equal.6\"F)F)F)" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "l(3,5);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"&" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "l(4,
-2);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"\"%" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 7 "l(3,3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q0They
~are~equal.6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 70 "Alphabet:=\"ABCDEFGHIJKLM
NOPQRSTUVWXYZ\nabcdefghijklmnopqrstuvwxyz,.: \";" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%)AlphabetGQZABCDEFGHIJKLMNOPQRSTUVWXYZ|+abcdefghijklm
nopqrstuvwxyz,.:~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "len
gth(Alphabet);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#\"#d" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 182 "ToNum:=proc(text)\n   global Alpha
bet;\n   local numtext,p;\n\n   p:=length(Alphabet);\n   numtext:=[seq
(SearchText(substring(text,i),Alphabet)-1,\n               i=1..length
(text))];\nend;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&ToNumGR6#%%textG
6$%(numtextG%\"pG6\"F+C$>8%-%'lengthG6#%)AlphabetG>8$7#-%$seqG6$,&-%+S
earchTextG6$-%*substringG6$9$%\"iGF2\"\"\"FB!\"\"/FA;FB-F06#F@F+F1F+" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "ToNum(\"ABC\");" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#7%\"\"!\"\"\"\"\"#" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 177 "FromNum:=proc(numtext)\n   global Alphabet;\n  \+
 local p,text;\n\n   p:=length(Alphabet);\n   text:=cat(seq(substring(
Alphabet,numtext[i]+1),\n               i=1..nops(numtext)));\nend;" }
}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%(FromNumGR6#%(numtextG6$%\"pG%%text
G6\"F+C$>8$-%'lengthG6#%)AlphabetG>8%-%$catG6#-%$seqG6$-%*substringG6$
F2,&&9$6#%\"iG\"\"\"FCFC/FB;FC-%%nopsG6#F@F+F1F+" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 19 "FromNum([0,1,2,3]);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#Q%ABCD6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
253 "Ceasar2:=proc(plaintext,shift)\n    global Alphabet;\n    local p
,numtext,codenum,codetext;\n    \n    p:=length(Alphabet);\n    numtex
t:=ToNum(plaintext);\n    codenum:=[seq((numtext[i]+shift) mod p,i=1..
nops(numtext))];\n    codetext:=FromNum(codenum);\nend: " }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "Ceasar2(\"Four score and seven year
s\",-1);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q;Entq:rbnqd:|+mc:rdudm:xd
|+qr6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Alphabet;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#QZABCDEFGHIJKLMNOPQRSTUVWXYZ|+abcdefgh
ijklmnopqrstuvwxyz,.:~6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
31 "Ceasar2(\"Here is more text\",6);" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#Q2NkxkFoyFsuxkFzk~z6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
14 "Ceasar2(%,-6);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2Here~is~more~t
ext6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "Alphabet:=\"aeiou
AEIOU\";" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%)AlphabetGQ+aeiouAEIOU6
\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "Ceasar2(\"Here is mor
e text\",3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q2iuiuiAiiiEiuiiuii6\"
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "Ceasar2(\"Gone\",3);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#Q%iEiu6\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 25 "SearchText(\"H\",Alphabet);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#\"\"!" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}}{MARK "46 0" 0 }{VIEWOPTS 1 1 0 2 1 1805 1 1 1 1 }{PAGENUMBERS 0 1 
2 33 1 1 }