{VERSION 3 0 "SUN SPARC SOLARIS" "3.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 
0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 }
{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 -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 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 2 6 1 {CSTYLE "" -1 -1 "" 0 1 0 0 
0 0 0 0 0 0 0 0 2 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warni
ng" 2 7 1 {CSTYLE "" -1 -1 "" 0 1 0 0 255 1 0 0 0 0 0 0 1 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 }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 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 
{CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 
0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "read(`/home/mat331/W
orksheets2/turtle.txt`);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 21 
"TurtleCmd(`FRFLFLF`);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7'7
$\"\"!F(7$$\"\"\"F(F(7$$\"+,+++5!\"*$!\"\"F(7$$\"+,+++?F/$!+#*********
!#57$F3$\"\")F7-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALIN
GG6#%,CONSTRAINEDG" 2 381 381 381 2 0 1 0 2 9 0 1 1 1.000000 
45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 75 
0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "TurtleCmd(`L \+
FRFR FFRFFR FFFFRFFFFR FFFFFFFFRFFFFFFFFR`);" }}{PARA 13 "" 1 "" 
{INLPLOT "6%-%'CURVESG6$7A7$\"\"!F(7$$!+2Q.^?!#>$\"\"\"F(7$$\"+)******
***!#5F-7$$\"+++++5!\"*F(7$$\"+,+++5F6$!\"\"F(7$$F.F6$!+++++5F67$$!***
*******F6F>7$$!+#*********F2F(7$$!+%*********F2F-7$$!+'*********F2$\"
\"#F(7$$!+)*********F2$\"\"$F(7$$FMF2FQ7$F4FQ7$$\"+++++?F6FQ7$$\"+++++
IF6FQ7$$\"+,+++IF6FL7$$\"+-+++IF6F-7$$\"+.+++IF6F(7$$\"+/+++IF6F:7$$\"
+0+++IF6$!\"#F(7$$\"+1+++IF6$!\"$F(7$$\"+2+++IF6$!\"%F(7$$\"+3+++IF6$!
\"&F(7$$\"+3+++?F6$!+++++]F67$$\"+3+++5F6Fip7$$\"\")F6Fip7$$!*#*******
*F6Fip7$$!+#*******>F6Fip7$$!+#*******HF6Fip7$$!+#*******RF6Fip7$$!+#*
******\\F6Fip-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG
6#%,CONSTRAINEDG" 2 548 548 548 2 0 1 0 2 9 0 1 1 1.000000 45.000000 
45.000000 10030 10061 10056 10074 0 0 0 20540 0 12010 0 0 0 0 0 0 0 1 
0 0 0 0 124 621 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
11 "a:=`hello`;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"aG%&helloG" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "b:=x^3/x;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"bG*$)%\"xG\"\"#\"\"\"" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "c:=`x^3/x`;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"
cG%&x^3/xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 5 "?cat;" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "cat(a,c);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#%+hellox^3/xG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 141 "spiral:=proc(n)\ns:=`L`;\nfor i from 1 to n do\n  s1:=cat( se
q(`F`,j=1..i), `R`, seq(`F`,j=1..i), `R` );\n  s:=cat(s,s1); \nod;\nTu
rtleCmd(s);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `s` is impl
icitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 "Warning, `i` is \+
implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 42 "Warning, `s1
` is implicitly declared local" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%'s
piralGR6#%\"nG6%%\"sG%\"iG%#s1G6\"F,C%>8$%\"LG?(8%\"\"\"F39$%%trueGC$>
8&-%$catG6&-%$seqG6$%\"FG/%\"jG;F3F2%\"RGF<FC>F/-F:6$F/F8-%*TurtleCmdG
6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 10 "spiral(4);" }
}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$777$\"\"!F(7$$!+2Q.^?!#>$\"
\"\"F(7$$\"+)*********!#5F-7$$\"+++++5!\"*F(7$$\"+,+++5F6$!\"\"F(7$$F.
F6$!+++++5F67$$!**********F6F>7$$!+#*********F2F(7$$!+%*********F2F-7$
$!+'*********F2$\"\"#F(7$$\"\"%F2FL7$F4FL7$$\"+++++?F6FL7$$\"+,+++?F6F
-7$$\"+-+++?F6F(7$$\"+.+++?F6F:7$$\"+/+++?F6$!\"#F(7$$\"+/+++5F6$!++++
+?F67$$FPF6F`o7$$!*'********F6F`o7$$!+'*******>F6F`o-%'COLOURG6&%$RGBG
F(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 549 549 
549 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 149 "spiral_exp:=proc(n)\ns:=`L`;\nfor i from 1 to n do\n
  s1:=cat( seq(`F`,j=1..2^i), `R`, seq(`F`,j=1..2^i), `R` );\n  s:=cat
(s,s1); \nod;\nTurtleCmd(s);\nend;" }}{PARA 7 "" 1 "" {TEXT -1 41 "War
ning, `s` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT -1 41 
"Warning, `i` is implicitly declared local" }}{PARA 7 "" 1 "" {TEXT 
-1 42 "Warning, `s1` is implicitly declared local" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%+spiral_expGR6#%\"nG6%%\"sG%\"iG%#s1G6\"F,C%>8$%\"LG?
(8%\"\"\"F39$%%trueGC$>8&-%$catG6&-%$seqG6$%\"FG/%\"jG;F3)\"\"#F2%\"RG
F<FE>F/-F:6$F/F8-%*TurtleCmdG6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 14 "spiral_exp(4);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CUR
VESG6$7in7$\"\"!F(7$$!+2Q.^?!#>$\"\"\"F(7$$!+9w1-TF,$\"\"#F(7$$\"+'***
******!#5F27$$\"+++++?!\"*F27$$\"+,+++?F;F-7$$\"+-+++?F;F(7$$\"+.+++?F
;$!\"\"F(7$$\"+/+++?F;$!\"#F(7$$\"+/+++5F;$!+++++?F;7$$\"\"%F;FO7$$!*'
********F;FO7$$!+'*******>F;FO7$FX$!+++++5F;7$FXF(7$FXF-7$FXF27$FX$\"
\"$F(7$FX$FSF(7$FX$\"\"&F(7$FX$\"\"'F(7$FUFco7$FRFco7$FMFco7$FHFco7$$
\"+/+++IF;Fco7$$\"+/+++SF;Fco7$$\"+/+++]F;Fco7$$\"+/+++gF;Fco7$$\"+0++
+gF;F`o7$$\"+1+++gF;F^o7$$\"+2+++gF;F[o7$$\"+3+++gF;F27$$\"+4+++gF;F-7
$$\"+5+++gF;F(7$$\"+6+++gF;FE7$$\"+7+++gF;FJ7$$\"+8+++gF;$!\"$F(7$$\"+
9+++gF;$!\"%F(7$$\"+:+++gF;$!\"&F(7$$\"+;+++gF;$!\"'F(7$$\"+<+++gF;$!
\"(F(7$$\"+=+++gF;$!\")F(7$$\"+>+++gF;$F;F(7$$\"+?+++gF;$F7F(7$$\"+?++
+]F;$FfnFjs7$$\"+?+++SF;Fft7$$\"+?+++IF;Fft7$$\"+?+++?F;Fft7$$\"+?+++5
F;Fft7$$\"#?F;Fft7$$!*!)*******F;Fft7$$!+!)******>F;Fft7$$!+!)******HF
;Fft7$$!+!)******RF;Fft7$$!+!)******\\F;Fft7$$!+!)******fF;Fft7$$!+!)*
*****pF;Fft7$$!+!)******zF;Fft7$$!+!)*******)F;Fft7$$!+!)********F;Fft
-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAIN
EDG" 2 549 549 549 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 7 0 0 0 0 0 0 0 }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "a:=spiral(14):" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 13 "b:=spiral(5):" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 29 "plots[display](array([a,b]));" }}{PARA 13 "" 1 "" 
{INLPLOT "6'-%'CURVESG6$7_x7$$!+<dG9x!#<\"\"!7$$!++ieVxF*$\"+H9dG9!\"*
7$$\"+_8dG9F1F/7$F3F+7$$\"+`8dG9F1$!+H9dG9F17$$!+u&G9d(F*F97$$!+0:dG9F
1F97$F?F+7$F?F/7$F?$\"+eG9dGF17$$!+gG9dwF*FD7$F3FD7$$\"+\"yUr&GF1FD7$$
\"+#yUr&GF1F/7$$\"+%yUr&GF1F+7$$\"+&yUr&GF1F97$$\"+(yUr&GF1$!+eG9dGF17
$$\"+e8dG9F1FY7$$!+Xr&G9(F*FY7$$!++:dG9F1FY7$$!+HH9dGF1FY7$F_oF97$F_oF
+7$F_oF/7$F_oFD7$F_o$\"+(G9dG%F17$F\\oFfo7$FinFfo7$FfnFfo7$FWFfo7$$\"+
;Ur&G%F1Ffo7$$\"+<Ur&G%F1FD7$$\"+>Ur&G%F1F/7$$\"+?Ur&G%F1F+7$$\"+@Ur&G
%F1F97$$\"+BUr&G%F1FY7$$\"+CUr&G%F1$!+(G9dG%F17$$\"+&zUr&GF1Faq7$$\"+m
8dG9F1Faq7$$!+)G9dG'F*Faq7$$!+#\\r&G9F1Faq7$$!+@H9dGF1Faq7$$!+]Vr&G%F1
Faq7$FcrFY7$FcrF97$FcrF+7$FcrF/7$FcrFD7$FcrFfo7$Fcr$\"+;dG9dF17$F`rF\\
s7$F]rF\\s7$FjqF\\s7$FgqF\\s7$FdqF\\s7$F_qF\\s7$$\"+`cG9dF1F\\s7$$\"+b
cG9dF1Ffo7$$\"+ccG9dF1FD7$$\"+ecG9dF1F/7$$\"+fcG9dF1F+7$$\"+gcG9dF1F97
$$\"+icG9dF1FY7$$\"+jcG9dF1Faq7$$\"+lcG9dF1$!+;dG9dF17$$\"+OUr&G%F1F_u
7$$\"+2G9dGF1F_u7$$\"+y8dG9F1F_u7$$!+Xr&G9&F*F_u7$$!+![r&G9F1F_u7$$!+4
H9dGF1F_u7$$!+QVr&G%F1F_u7$$!+ndG9dF1F_u7$FgvFaq7$FgvFY7$FgvF97$FgvF+7
$FgvF/7$FgvFD7$FgvFfo7$FgvF\\s7$Fgv$\"+Xr&G9(F17$FdvFbw7$FavFbw7$F^vFb
w7$F[vFbw7$FhuFbw7$FeuFbw7$FbuFbw7$F]uFbw7$$\"+%4dG9(F1Fbw7$$\"+&4dG9(
F1F\\s7$$\"+(4dG9(F1Ffo7$$\"+)4dG9(F1FD7$$\"+*4dG9(F1F/7$$\"+,r&G9(F1F
+7$$\"+-r&G9(F1F97$$\"+/r&G9(F1FY7$$\"+0r&G9(F1Faq7$$\"+2r&G9(F1F_u7$$
\"+3r&G9(F1$FjnF17$$\"+zcG9dF1F]z7$$\"+]Ur&G%F1F]z7$$\"+@G9dGF1F]z7$$
\"+#Rr&G9F1F]z7$$!+;dG9PF*F]z7$$!+m9dG9F1F]z7$$!+&*G9dGF1F]z7$$!+CVr&G
%F1F]z7$$!+`dG9dF1F]z7$$!+#=dG9(F1F]z7$Fj[lF_u7$Fj[lFaq7$Fj[lFY7$Fj[lF
97$Fj[lF+7$Fj[lF/7$Fj[lFD7$Fj[lFfo7$Fj[lF\\s7$Fj[lFbw7$Fj[l$\"+u&G9d)F
17$Fg[lFg\\l7$Fd[lFg\\l7$Fa[lFg\\l7$F^[lFg\\l7$F[[lFg\\l7$FhzFg\\l7$Fe
zFg\\l7$FbzFg\\l7$F_zFg\\l7$F[zFg\\l7$$\"+P&G9d)F1Fg\\l7$$\"+Q&G9d)F1F
bw7$$\"+S&G9d)F1F\\s7$$\"+T&G9d)F1Ffo7$$\"+V&G9d)F1FD7$$\"+W&G9d)F1F/7
$$\"+Y&G9d)F1F+7$$\"+Z&G9d)F1F97$$\"+[&G9d)F1FY7$$\"+]&G9d)F1Faq7$$\"+
^&G9d)F1F_u7$$\"+`&G9d)F1F]z7$$\"+a&G9d)F1$!+u&G9d)F17$$\"+Dr&G9(F1Fj_
l7$$\"+'p&G9dF1Fj_l7$$\"+nUr&G%F1Fj_l7$$\"+QG9dGF1Fj_l7$$\"+49dG9F1Fj_
l7$$!+,+++?F*Fj_l7$$!+\\9dG9F1Fj_l7$$!+yG9dGF1Fj_l7$$!+2Vr&G%F1Fj_l7$$
!+OdG9dF1Fj_l7$$!+lr&G9(F1Fj_l7$$!+%fG9d)F1Fj_l7$F^blF]z7$F^blF_u7$F^b
lFaq7$F^blFY7$F^blF97$F^blF+7$F^blF/7$F^blFD7$F^blFfo7$F^blF\\s7$F^blF
bw7$F^blFg\\l7$F^bl$\"+++++5!\")7$F[blF]cl7$FhalF]cl7$FealF]cl7$FbalF]
cl7$F_alF]cl7$F\\alF]cl7$Fi`lF]cl7$Ff`lF]cl7$Fc`lF]cl7$F``lF]cl7$F]`lF
]cl7$Fh_lF]cl7$$\"+$)********F1F]cl7$F]dlFg\\l7$F]dlFbw7$F]dlF\\s7$$\"
+$*********F1Ffo7$FcdlFD7$FcdlF/7$FcdlF+7$FcdlF97$FcdlFY7$FcdlFaq7$F]c
lF_u7$F]clF]z7$F]clFj_l7$F]cl$!+++++5F_cl7$Fg\\lF_el7$FbwF_el7$F\\sF_e
l7$FfoF_el7$FDF_el7$F/F_el7$F+F_el7$F9F_el7$FYF_el7$FaqF_el7$F_uF_el7$
F]zF_el7$Fj_lF_el7$F_elF_el-%'COLOURG6&%$RGBGF+F+F+-F$6$7A7$$\"+)*****
*z#F_cl$!+++++?F17$Fgfl$\"+++++?F17$$\"+)******>$F_clF\\gl7$F_glFifl7$
F_gl$!+++++gF17$FgflFcgl7$$\"+)******R#F_clFcgl7$FgglFifl7$FgglF\\gl7$
Fggl$\"+++++gF17$FgflF\\hl7$F_glF\\hl7$$\"+)******f$F_clF\\hl7$FahlF\\
gl7$$\"+*******f$F_clFifl7$FehlFcgl7$$\"+++++OF_clF_el7$$\"+++++KF_clF
_el7$$\"+++++GF_clF_el7$$\"+++++CF_clF_el7$$F]glF_clF_el7$FeilFcgl7$Fe
ilFifl7$FeilF\\gl7$FeilF\\hl7$FeilF]cl7$FbilF]cl7$F_ilF]cl7$F\\ilF]cl7
$FihlF]cl7$$\"+++++SF_clF]clF_fl-F$6\"-%(SCALINGG6#%,CONSTRAINEDG-%*AX
ESSTYLEG6#%%NONEG" 2 549 549 549 2 0 1 0 2 9 0 1 1 1.000000 45.000000 
45.000000 10030 10061 10056 10074 0 0 0 20540 0 12010 0 0 0 0 0 0 0 1 
0 0 0 0 641 622 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
19 "SetTurtleAngle(80);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "
spiral(14);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7_x7$\"\"!F(7$
$\"+t<[O<!#5$\"+Jv2[)*F,7$$\"+x\"[O<\"!\"*F-7$$\"+djHZ8F2$\"\"&F,7$$\"
+PX%4_\"F2$!+@v2[)*F,7$$\"+i\">D\"eF,$!+&*y#oK\"F27$$!+YqS%e$F,$!+Q![)
o;F27$$!+^qS%e)F,$!+XjAG!)F,7$$!+12We8F2$\"*!pF?jF,7$$!+22We=F2$\"+D<G
#H*F,7$$!+kiR#4\"F2$\"+#y:?d\"F27$$!+4#=NE$F,$\"+#R.[@#F27$$\"+Ai#pR%F
,$\"+-5fdGF27$$\"+mqt07F2$\"+%R.[@#F27$$\"+5:yr>F2$\"+'y:?d\"F27$$\"+a
f#yt#F2$\"+w<G#H*F,7$$\"+)RqQ]$F2$\"+#p0W'GF,7$$\"+(RqQ+$F2$!+U$[ez&F,
7$$\"+'RqQ]#F2$!+Q-hX9F27$$\"+&RqQ+#F2$!+Tcj6BF27$$\"+%RqQ]\"F2$!+W5mx
JF27$$\"+HxxTcF,$!+,4kNGF27$$!+#[[^v$F,$!+e2i$\\#F27$$!+pu?:8F2$!+:1g^
@F27$$!+!4+\\D#F2$!+s/e4=F27$$!+6Ff%>$F2$!+H.cn9F27$$!+MX%4-$F2$!+fd_F
[F,7$$!+djHZGF2$\"+s<b?]F,7$$!+!=[On#F2$\"+IH'o[\"F27$$!+.+++DF2$\"+$o
q;Z#F27$$!+E=NEBF2$\"+O%ykX$F27$$!+E=NE8F2Fgt7$$!*E=NE$F2Fgt7$$\"*u\"[
OnF2Fgt7$$\"+u\"[On\"F2Fgt7$$\"+u\"[On#F2Fgt7$$\"+u\"[On$F2Fgt7$$\"+aj
HZQF2Fbt7$$\"+MX%4-%F2F]t7$$\"+9Ff%>%F2$\"+u<b?]F,7$$\"+%*3CoVF2$!+_d_
F[F,7$$\"+u!*)=a%F2$!+G.cn9F27$$\"+as`:ZF2$!+\"3oBX#F27$$\"+LY%ex$F2$!
+C#)Q%z#F27$$\"+7?:OGF2$!+n$3k8$F27$$\"+\"Rfk*=F2$!+5&G%yMF27$$\"+-xmn
&*F,$!+`'[/#QF27$$\"*%\\T2<F,$!+'zoC;%F27$$!+9Z=E#*F,$!+R*)[/XF27$$!+#
46B'=F2$!+#34l%[F27$$!+$46BO#F2$!+zO[!)RF27$$!+%46B'GF2$!+w#eW6$F27$$!
+&46BO$F2$!+tGV[AF27$$!+'46B'QF2$!+quS#Q\"F27$$!+(46BO%F2$!+l1#Q;&F,7$
$!+)46B'[F2$\"+qLV'\\$F,7$$!+*46BO&F2$\"+T(oc@\"F27$$!+cmE'f%F2$\"+^jX
e=F27$$!+8AAIQF2$\"+hRC,DF27$$!+qx<kIF2$\"+r:.WJF27$$!+FL8)H#F2$\"+\"=
>oy$F27$$!+%)))3K:F2$\"+\"z1'HWF27$$!+4WWgwF,$\"+,WRs]F27$$\"#AF,$\"+6
?=:dF27$$\"+`WWgwF,$\"+@'pzN'F27$$\"+!*))3K:F2$\"+8?=:dF27$$\"+ML8)H#F
2$\"+0WRs]F27$$\"+yx<kIF2$\"+(z1'HWF27$$\"+AAAIQF2$\"+*=>oy$F27$$\"+mm
E'f%F2$\"+\"eJS9$F27$$\"+56Ji`F2$\"+tRC,DF27$$\"+abNGhF2$\"+ljXe=F27$$
\"+)***R%*oF2$\"+d(oc@\"F27$$\"+(***R%R'F2$\"+ONV'\\$F,7$$\"+'***R%*eF
2$!+)\\?Q;&F,7$$\"+&***R%R&F2$!+`uS#Q\"F27$$\"+%***R%*[F2$!+cGV[AF27$$
\"+$***R%R%F2$!+f#eW6$F27$$\"+#***R%*QF2$!+iO[!)RF27$$\"+\"***R%R$F2$!
+l!4l%[F27$$\"+!***R%*GF2$!+oW`7dF27$$\"+*)**R%R#F2$!+r)f&ylF27$$\"+ot
qa9F2$!+G(RlB'F27$$\"+pu9]^F,$!+&e>X*eF27$$!+U(ynC%F,$!+U%*\\_bF27$$!+
&\\qVO\"F2$!+*Hz/@&F27$$!+;J1/BF2$!+c\"f%o[F27$$!+PdvVKF2$!+8!Rk_%F27$
$!+e$[M=%F2$!+q)=W=%F27$$!+z49B^F2$!+F()RUQF27$$!++O$G1'F2$!+%ey.]$F27
$$!+Ba=*)eF2$!+J3d:DF27$$!+Ys`:dF2$!+yIwI:F27$$!+p!*)=a&F2$!+\\KbfaF,7
$$!+#*3Co`F2$\"+#GC&)Q%F,7$$!+:Ff%>&F2$\"+\"=gOU\"F27$$!+QX%4-&F2$\"+M
zY3CF27$$!+hjHZ[F2$\"+(ovKR$F27$$!+%=[On%F2$\"+SM3yVF27$$!+2+++XF2$\"+
$>\"*GO&F27$$!+I=NEVF2$\"+Y*)pZjF27$$!+I=NELF2Feil7$$!+I=NEBF2Feil7$$!
+I=NE8F2Feil7$$!*I=NE$F2Feil7$$\"*q\"[OnF2Feil7$$\"+q\"[On\"F2Feil7$$
\"+q\"[On#F2Feil7$$\"+q\"[On$F2Feil7$$\"+q\"[On%F2Feil7$$\"+q\"[On&F2F
eil7$$\"+]jHZeF2F`il7$$\"+IX%4-'F2F[il7$$\"+5Ff%>'F2Ffhl7$$\"+!*3CojF2
Fahl7$$\"+q!*)=a'F2F\\hl7$$\"+]s`:nF2$\"+%GC&)Q%F,7$$\"+Ia=*)oF2$!+UKb
faF,7$$\"+5O$G1(F2$!+xIwI:F27$$\"+!z\"[OsF2$!+I3d:DF27$$\"+q*H,T(F2$!+
$ey.]$F27$$\"+]\"yPe(F2$!+Oj=&[%F27$$\"+Hb3WmF2$!+zk?F[F27$$\"+3HR/dF2
$!+AmAp^F27$$\"+(G+Zw%F2$!+lnC6bF27$$\"+mw+DQF2$!+3pE`eF27$$\"+X]J&)GF
2$!+^qG&>'F27$$\"+CCiX>F2$!+%>2t`'F27$$\"+.)Hf+\"F2$!+PtKzoF27$$\"*A=P
i'F,$!+![Z8A(F27$$!+'QaXt)F,$!+BwOjvF27$$!+f![J\"=F2$!+mxQ0zF27$$!+!oS
Gv#F2$!+4zSZ#)F27$$!+\"oSGD$F2$!+1DQ\"Q(F27$$!+#oSGv$F2$!+.rN:lF27$$!+
$oSGD%F2$!++<L\\cF27$$!+%oSGv%F2$!+(H1Ly%F27$$!+&oSGD&F2$!+%*3G<RF27$$
!+'oSGv&F2$!+\"\\b70$F27$$!+(oSGD'F2$!+)3I_=#F27$$!+)oSGv'F2$!+&o/#>8F
27$$!+*oSGD(F2$!+:GzJXF,7$$!+!pSGv(F2$\"+?7YGTF,7$$!+\"pSGD)F2$\"+E:()
y7F27$$!+#pSGv)F2$\"+Ip*[9#F27$$!+\\iz')zF2$\"+SXo(y#F27$$!+1=v?sF2$\"
+]@ZIMF27$$!+jtqakF2$\"+g(fK2%F27$$!+?Hm)o&F2$\"+qt/;ZF27$$!+x%=E#\\F2
$\"+!)\\$)e`F27$$!+MSdcTF2$\"+!fA;+'F27$$!+\"fH0R$F2$\"++-TWmF27$$!+[^
[CEF2$\"+5y>(G(F27$$!+02We=F2$\"+?a)*HzF27$$!+iiR#4\"F2$\"+IIxs&)F27$$
!+*==NE$F,$\"+S1c:#*F27$$\"+Ui#pR%F,$\"+]#[$e)*F27$$\"+oqt07F2$\"+U1c:
#*F27$$\"+7:yr>F2$\"+MIxs&)F27$$\"+cf#yt#F2$\"+Ea)*HzF27$$\"++/(Q]$F2$
\"+=y>(G(F27$$\"+W[\"*pUF2$\"+5-TWmF27$$\"+)Gff.&F2$\"+-Ei,gF27$$\"+KP
+-eF2$\"+%*\\$)e`F27$$\"+w\"[!olF2$\"+'QZgr%F27$$\"+?E4MtF2$\"+y(fK2%F
27$$\"+kq8+\")F2$\"+q@ZIMF27$$\"+3:=m))F2$\"+iXo(y#F27$$\"+_fAK'*F2$\"
+ap*[9#F27$$\"+Sq#)R5!\")$\"+Y$4@]\"F27$$\"+*Rq#)*)*F2$\"+E%R3O'F,7$$
\"+)Rq#)R*F2$!+3YT*H#F,7$$\"+(Rq#)*))F2$!+ko'f4\"F27$$\"+'Rq#)R)F2$!+n
A*>'>F27$$\"+&Rq#)*yF2$!+qw,GGF27$$\"+%Rq#)R(F2$!+tI/%p$F27$$\"+$Rq#)*
oF2$!+w%o+c%F27$$\"+#Rq#)R'F2$!+zQ4EaF27$$\"+\"Rq#)*eF2$!+#G>@H'F27$$
\"+!Rq#)R&F2$!+&oW\"erF27$$\"+*Qq#)*[F2$!+)3qT-)F27$$\"+)Qq#)R%F2$!+\"
\\&>!*))F27$$\"+(Qq#)*QF2$!+%*3Ac(*F27$$\"+mxdeHF2$!+^2?9%*F27$$\"+X^)
)=?F2$!+31=s!*F27$$\"+CD>z5F2$!+l/;I()F27$$\"+H!**\\R\"F,$!+A.9)Q)F27$
$!+#=F>+)F,$!+z,7Y!)F27$$!+R`))R<F2$!+O+5/xF27$$!+gzdzEF2$!+$*)z?O(F27
$$!+\"eq#>OF2$!+](f+-(F27$$!+-K'*eXF2$!+2'R!ymF27$$!+Bel)\\&F2$!+k%>gL
'F27$$!+W%[$QkF2$!+@$**R*fF27$$!+l5/ytF2$!+y\"z>l&F27$$!+'oLxJ)F2$!+N!
f*4`F27$$!+2jUd#*F2$!+#*)Qz'\\F27$$!+I\"yP3*F2$!+R68$)RF27$$!+`*H,\"*)
F2$!+'QB$)*HF27$$!+w<[O()F2$!+Lc^8?F27$$!+*fLGc)F2$!+!)yqG5F27$$!+Aa=*
Q)F2$!*p7+R%F,7$$!+Xs`:#)F2$\"+ii24%*F,7$$!+o!*)=/)F2$\"+z`rD>F27$$!+
\"*3CoyF2$\"+KJ_5HF27$$!+9Ff%p(F2$\"+&)3L&*QF27$$!+PX%4_(F2$\"+Q'Q,)[F
27$$!+gjHZtF2$\"+\"RY\\'eF27$$!+$=[O<(F2$\"+WTv\\oF27$$!+1+++qF2$\"+(*
=cMyF27$$!+H=NEoF2$\"+]'p$>))F2-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#
%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 548 548 548 2 0 1 0 2 9 0 1 1 
1.000000 45.000000 45.000000 10030 10061 10056 10074 0 0 0 20540 0 
12010 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 163 "spiral_exp2:=proc(n)\ns:=``;\nfor i from 1 to n
 do\n  s1:=cat( seq(`F`,j=1..2^i), `R`, seq(`F`,j=1..2^i), `R` );\n  l
print(s1);\n  s:=cat(s,s1); \nod;\nTurtleCmd(s);\nend;" }}{PARA 7 "" 
1 "" {TEXT -1 45 "Warning, `\\`s\\` is implicitly declared local`" }}
{PARA 7 "" 1 "" {TEXT -1 45 "Warning, `\\`i\\` is implicitly declared \+
local`" }}{PARA 7 "" 1 "" {TEXT -1 46 "Warning, `\\`s1\\` is implicitl
y declared local`" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%,spiral_exp2GR6
#%\"nG6%%\"sG%\"iG%#s1G6\"F,C%>8$%!G?(8%\"\"\"F39$%%trueGC%>8&-%$catG6
&-%$seqG6$%\"FG/%\"jG;F3)\"\"#F2%\"RGF<FE-%'lprintG6#F8>F/-F:6$F/F8-%*
TurtleCmdG6#F/F,F,F," }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 19 "Set
TurtleAngle(90);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 15 "spiral_
exp2(4);" }}{PARA 6 "" 1 "" {TEXT -1 6 "FFRFFR" }}{PARA 6 "" 1 "" 
{TEXT -1 10 "FFFFRFFFFR" }}{PARA 6 "" 1 "" {TEXT -1 18 "FFFFFFFFRFFFFF
FFFR" }}{PARA 6 "" 1 "" {TEXT -1 34 "FFFFFFFFFFFFFFFFRFFFFFFFFFFFFFFFF
R" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7in7$\"\"!F(7$$\"\"\"F(F
(7$$\"\"#F(F(7$$\"+,+++?!\"*$!\"\"F(7$$\"+-+++?F2$!\"#F(7$$\"+-+++5F2$
!+++++?F27$$F.F2F=7$$!*)********F2F=7$$!+)*******>F2F=7$FE$!+++++5F27$
FEF(7$FEF*7$FEF-7$FBF-7$F@F-7$F;F-7$F6F-7$$\"+-+++IF2F-7$$\"+-+++SF2F-
7$$\"+-+++]F2F-7$$\"+-+++gF2F-7$$\"+.+++gF2F*7$$\"+/+++gF2F(7$$\"+0+++
gF2F37$$\"+1+++gF2F87$$\"+2+++gF2$!\"$F(7$$\"+3+++gF2$!\"%F(7$$\"+4+++
gF2$!\"&F(7$$\"+5+++gF2$!\"'F(7$$\"+5+++]F2$!+++++gF27$$\"+5+++SF2Fjp7
$$\"+5+++IF2Fjp7$$\"+5+++?F2Fjp7$$\"+5+++5F2Fjp7$$\"#5F2Fjp7$$!*!*****
***F2Fjp7$$!+!*******>F2Fjp7$$!+!*******HF2Fjp7$$!+!*******RF2Fjp7$$!+
!*******\\F2Fjp7$$!+!*******fF2Fjp7$$!+!*******pF2Fjp7$$!+!*******zF2F
jp7$$!+!********)F2Fjp7$$!+!*********F2Fjp7$Fgs$!+++++]F27$Fgs$!+++++S
F27$Fgs$!+++++IF27$FgsF=7$FgsFH7$FgsF(7$FgsF*7$FgsF-7$Fgs$\"\"$F(7$Fgs
$\"\"%F(7$Fgs$\"\"&F(7$Fgs$\"\"'F(7$Fgs$\"\"(F(7$Fgs$\"\")F(7$Fgs$\"\"
*F(7$Fgs$FjqF(-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALING
G6#%,CONSTRAINEDG" 2 548 548 548 2 0 1 0 2 9 0 1 1 1.000000 45.000000 
45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 16408 0 0 0 0 
0 0 }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 33 "We're trying to produce an \+
n-gon." }}{PARA 0 "" 0 "" {TEXT -1 0 "" }}{PARA 0 "" 0 "" {TEXT -1 0 "
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "TurtleCmd(`FRFRFRFRFR`)
;" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7(7$\"\"!F(7$$\"\"\"F(F(
7$$\"+,+++5!\"*$!\"\"F(7$$F+F/$!+++++5F/7$$\"+$>m*[z!#>F(7$F-F(-%'COLO
URG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 
549 549 549 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 75 "Ngon:=proc(n)\nSetTurtleAngle(360/n);\nTurtle
Cmd(cat(seq(`FR`,i=1..n)));\nend;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%%NgonGR6#%\"nG6\"F(F(C$-%/SetTurtleAngleG6#,$*&\"\"\"F/9$!\"\"\"$g$-%
*TurtleCmdG6#-%$catG6#-%$seqG6$%#FRG/%\"iG;\"\"\"F0F(F(F(" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "Ngon(5);" }}{PARA 13 "" 1 "" 
{INLPLOT "6%-%'CURVESG6$7(7$\"\"!F(7$$\"\"\"F(F(7$$\"+&*p,48!\"*$!+i^c
5&*!#57$$\"+5+++]F2$!+p<%)Q:F/7$$!+N*p,4$F2$!+o^c5&*F27$$\"\"$F2$!\"$F
2-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAI
NEDG" 2 548 548 548 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 -11024 88 0 0 0 0 0 0 }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Ngon(20);" }}{PARA 13 "" 1 "
" {INLPLOT "6%-%'CURVESG6$777$\"\"!F(7$$\"\"\"F(F(7$$\"+<l0^>!\"*$!+L*
p,4$!#57$$\"+7N2gFF/$!+_C-o*)F27$$\"+l(eyM$F/$!+R#>eq\"F/7$$\"+gd(ol$F
/$!+bd(ol#F/7$$\"+hd(ol$F/$!+bd(ol$F/7$$\"+o(eyM$F/$!+sA$zg%F/7$$\"+;N
2gFF/$!+n#\\pT&F/7$$\"+Al0^>F/$!+?Xt/gF/7$$\"+1+++5F/$!+9:v8jF/7$$\"\"
'F/FY7$$!+0^c5&*F2FT7$$!+0N2g<F/$!+o#\\pT&F/7$$!+e(eyM#F/$!+uA$zg%F/7$
$!+_d(ol#F/$!+ed(ol$F/7$Ffo$!+ed(ol#F/7$Fao$!+U#>eq\"F/7$$!+1N2g<F/$!+
wC-o*)F27$$!+<^c5&*F2$!+_*p,4$F27$$\"#YF2$!\")F2-%'COLOURG6&%$RGBGF(F(
F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 549 549 549 2 
0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 
0 0 0 0 0 1 0 0 0 0 2 84 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 9 "Ngon(40);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$
7K7$\"\"!F(7$$\"\"\"F(F(7$$\"+T$)o()>!\"*$!+XYMk:!#57$$\"+e[uQHF/$!+yX
^aYF27$$\"+$Q^(HQF/$!+o&>W>*F27$$\"+y$o(QYF/$!+4sA2:F/7$$\"+g^(eM&F/$!
+*)RL9AF/7$$\"+8/mLfF/$!+$)4NBIF/7$$\"+84l(Q'F/$!+2vN9RF/7$$\"+3zm'p'F
/$!+BSTl[F/7$$\"+uB5`oF/$!+jB5`eF/7$$\"+vB5`oF/$!+jB5`oF/7$$\"+5zm'p'F
/$!+/2zSyF/7$$\"+<4l(Q'F/$!+@s%=z)F/7$$\"+=/mLfF/$!+YP&Go*F/7$$\"+m^(e
M&F/$!+uq=\\5!\")7$$\"+'Qo(QYF/$!+_x*)>6F^p7$$\"+#R^(HQF/$!+xiny6F^p7$
$\"+o[uQHF/$!+F`2C7F^p7$$\"+_$)o()>F/$!+Eq(\\D\"F^p7$$\"+7+++5F/$!+t/i
q7F^p7$$\"#7F/Ffq7$$!+'G$)o()*F2$!+Fq(\\D\"F^p7$$!+X[uQ>F/$!+G`2C7F^p7
$$!+p8vHGF/$!+yiny6F^p7$$!+k$o(QOF/$!+`x*)>6F^p7$$!+Y^(eM%F/$!+vq=\\5F
^p7$$!+*RgO$\\F/$!+cP&Go*F/7$$!+**3l(Q&F/$!+Ks%=z)F/7$$!+$*ym'p&F/$!+;
2zSyF/7$$!+fB5`eF/$!+wB5`oF/7$Fdt$!+wB5`eF/7$$!+%*ym'p&F/$!+NSTl[F/7$$
!++4l(Q&F/$!+>vN9RF/7$$!+,/mL\\F/$!+&*4NBIF/7$$!+\\^(eM%F/$!+,SL9AF/7$
$!+o$o(QOF/$!+?sA2:F/7$$!+u8vHGF/$!+w'>W>*F27$$!+][uQ>F/$!+yY^aYF27$$!
+PL)o()*F2$!+MZMk:F27$$\"#pF2$!#$)F2-%'COLOURG6&%$RGBGF(F(F(-%*AXESSTY
LEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 2 549 549 549 2 0 1 0 2 9 0 
1 1 1.000000 45.000000 45.000000 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 
0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "Ng
on(60);" }}{PARA 13 "" 1 "" {INLPLOT "6%-%'CURVESG6$7in7$\"\"!F(7$$\"
\"\"F(F(7$$\"+'*=_%*>!\"*$!+8YGX5!#57$$\"+(\\pE(HF/$!+@:SCJF27$$\"+9gs
BRF/$!+a9d9iF27$$\"+t9FP[F/$!+'y$>G5F/7$$\"+xoH.dF/$!+(y$>G:F/7$$\"+sQ
J7lF/$!+R!zf6#F/7$$\"+*peaD(F/$!+W'4^y#F/7$$\"+0$*eCzF/$!+qWDGNF/7$$\"
+eXP7&)F/$!+k9FPVF/7$$\"+gXP7!*F/$!+noH._F/7$$\"+-76>%*F/$!+DB%o6'F/7$
$\"+(>G\"G(*F/$!+T))*y1(F/7$$\"+*))Rg$**F/$!+Tk/Y!)F/7$$\"+No0/5!\")$!
+O$o0/*F/7$Fjo$!+Mo0/5F\\p7$Feo$!+C!4N5\"F\\p7$$\"+)>G\"G(*F/$!+%yB8?
\"F\\p7$$\"+076>%*F/$!+O%HkH\"F\\p7$$\"+kXP7!*F/$!+#)Ry(Q\"F\\p7$$\"+j
XP7&)F/$!+AlQu9F\\p7$$\"+6$*eCzF/$!+@#)Gb:F\\p7$$\"+1(eaD(F/$!+/FgH;F
\\p7$$\"+!)QJ7lF/$!+ld^'p\"F\\p7$$\"+')oH.dF/$!+!H%Hb<F\\p7$$\"+$[rs$[
F/$!+!H%H0=F\\p7$$\"+DgsBRF/$!+az'f%=F\\p7$$\"+4&pE(HF/$!+`'po(=F\\p7$
$\"+4>_%*>F/$!+A3m(*=F\\p7$$\"+9+++5F/$!+oO63>F\\p7$$\"#9F/Fdt7$$!+9)=
_%**F2F_t7$$!+#[pE(>F/Fjs7$$!+**fsBHF/Fes7$$!+d9FPQF/F`s7$$!+hoH.ZF/F[
s7$$!+cQJ7bF/Ffr7$$!+#oeaD'F/Far7$$!+*G*eCpF/F\\r7$$!+UXP7vF/Fgq7$$!+V
XP7!)F/Fbq7$$!+'=6\">%)F/F]q7$$!+!=G\"G()F/Fhp7$$!+r)Rg$*)F/Fcp7$$!+M$
o0/*F/F`p7$Faw$!*Mo0/*F\\p7$F^w$!+Xk/Y!)F/7$$!+\"=G\"G()F/$!+W))*y1(F/
7$$!+(=6\">%)F/$!+GB%o6'F/7$$!+XXP7!)F/$!+qoH._F/7$$!+XXP7vF/$!+m9FPVF
/7$$!+$H*eCpF/$!+sWDGNF/7$$!+(oeaD'F/$!+Y'4^y#F/7$$!+iQJ7bF/$!+S!zf6#F
/7$$!+ooH.ZF/$!+)y$>G:F/7$$!+k9FPQF/$!+)y$>G5F/7$$!+1gsBHF/$!+]9d9iF27
$$!+!\\pE(>F/$!+1:SCJF27$$!+$*)=_%**F2$!+(f%GX5F27$$\"#hF2$\"#NF2-%'CO
LOURG6&%$RGBGF(F(F(-%*AXESSTYLEG6#%%NONEG-%(SCALINGG6#%,CONSTRAINEDG" 
2 549 549 549 2 0 1 0 2 9 0 1 1 1.000000 45.000000 45.000000 0 0 0 0 
0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "27 0 0" 0 }{VIEWOPTS 1 1 0 3 2 
1804 }