{VERSION 12 0 "Linux" "12.0" }
{USTYLETAB {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 
"Ordered List 1" -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 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 "Ordered List 2" -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 36 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 "O
rdered List 4" -1 203 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 "Ordered List 5" 
-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 144 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 "Warning" -1 7 1 {CSTYLE "" -1 -1 "Courier" 1 12 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 "Annotat
ion Title" -1 205 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 "Maple Plot" -1 13 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 "Error" -1 8 1 {CSTYLE "" -1 -1 "Courier" 1
 12 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 "Title" -1 18 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 "Line Printed Out
put" -1 6 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1 2 2 2 2 2 1 2 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 "MS Serif" 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 "Diagnostic" -1 9 1 {CSTYLE "" -1 -1 "Courier" 1
 12 40 120 40 1 2 2 2 2 2 1 2 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }
{PSTYLE "Text Output" -1 2 1 {CSTYLE "" -1 -1 "Courier" 1 12 0 0 255 1
 2 2 2 2 2 1 3 0 0 1 }1 1 0 0 0 0 2 0 2 0 2 2 -1 1 }{PSTYLE "Bullet It
em" -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 "Heading 4" -1 20 1 {CSTYLE "" 
-1 -1 "MS Serif" 1 12 0 0 0 1 1 2 2 2 2 2 1 0 0 1 }1 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 "Heading
 3" -1 5 1 {CSTYLE "" -1 -1 "MS Serif" 1 14 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 "Heading 2" -1 4 1 {CSTYLE ""
 -1 -1 "MS Serif" 1 16 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 "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 }{CSTYLE "An
notation Text" -1 200 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }
{CSTYLE "Maple Input Placeholder" -1 201 "Courier" 1 12 200 0 200 1 2 
1 2 2 1 2 0 0 0 1 }{CSTYLE "Code" -1 202 "Courier" 1 12 255 0 0 1 2 2 
2 2 2 2 0 0 0 1 }{CSTYLE "2D Inert Output" -1 203 "Times" 1 12 144 144
 144 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Hyperlink" -1 17 "MS Serif" 1 12 
0 128 128 1 2 2 1 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 "Maple Input" -1 0 "Courier" 1 12 
255 0 0 1 2 1 2 2 1 2 0 0 0 1 }{CSTYLE "2D Output" -1 20 "Times" 1 12 
0 0 255 1 2 2 2 2 2 1 0 0 0 1 }{CSTYLE "2D Input" -1 19 "Times" 1 12 0
 0 0 1 2 2 2 2 1 2 0 0 0 1 }{CSTYLE "Header and Footer" -1 204 "Times"
 1 10 0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Text" -1 205 "Times" 1 12 
0 0 0 1 2 2 2 2 2 2 0 0 0 1 }{CSTYLE "Equation Label" -1 206 "Times" 1
 12 0 0 0 1 2 1 2 2 2 2 0 0 0 1 }{CSTYLE "Dictionary Hyperlink" -1 45 
"MS Serif" 1 12 147 0 15 1 2 2 1 2 2 2 0 0 0 1 }}
{SECT 0 {EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 17 "expor :=proc(a,n)" }}{PARA 0 "> " 0
 "" {MPLTEXT 1 0 20 "   local aa,res,nn ;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 32 "   res := 1 ; nn := n ; aa :=a ;" }}{PARA 0 "> " 0 ""
 {MPLTEXT 1 0 17 "   while(nn>0) do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
22 "       if type(nn,odd)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "     \+
     then res :=res*aa ;nn :=nn-1 ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 
38 "          else aa :=aa*aa ;nn :=nn/2 ;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 15 "       end if ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "
   od ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "   res ;" }}{PARA 0 "> " 
0 "" {MPLTEXT 1 0 10 "end proc ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I\"aG6\"I\"nGF%6%I#aaGF%I$resGF%
I#nnGF%F%F%C'>F)\"\"\">F*F&>F(F$?(F%F-F-F%2\"\"!F*@%-I%typeG%*protecte
dG6$F*I$oddGF6C$>F)*&F)F-F(F->F*,&F*F-F-!\"\"C$>F(*&F(F-F(F->F*,$*&#F-
\"\"#F-F*F-F-F)F%F%F%" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "ex
por(2,8);" }}{PARA 11 "" 1 "" {XPPMATH 20 "\"$c#" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 30 "exporec:=proc(a,n) local p,y ;" }}{PARA 0 "> 
" 0 "" {MPLTEXT 1 0 16 "   if n=0 then 1" }}{PARA 0 "> " 0 "" {MPLTEXT
 1 0 10 "      else" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "         p :
=n mod 2 ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 18 "         y :=a*a ;" }
}{PARA 0 "> " 0 "" {MPLTEXT 1 0 35 "         if p=0 then exporec(y,n/2
)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 37 "            else a*exporec(y,(
n-1)/2)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "         end if;" }}
{PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "   end if;" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "   end proc ;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" 
}}{PARA 11 "" 1 "" {XPPMATH 20 "f*6$I\"aG6\"I\"nGF%6$I\"pGF%I\"yGF%F%F
%@%/F&\"\"!\"\"\"C%>F(-I$modGF%6$F&\"\"#>F)*&F$F-F$F-@%/F(F,-I(exporec
GF%6$F),$*&#F-F3F-F&F-F-*&F$F--F96$F),&F<F-F=!\"\"F-F%F%F%" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "exporec(2,8);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "\"$c#" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}
{EXCHG {PARA 0 "" 0 "" {XPPEDIT 2 0 "" "%#%?G" }}}}
{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2
 33 1 1 }