{VERSION 3 0 "IBM INTEL NT" "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 "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 "Fixed Width" 
0 17 1 {CSTYLE "" -1 -1 "Courier" 1 10 0 0 0 0 0 0 0 0 0 0 3 0 0 }3 0 
0 -1 -1 -1 0 0 0 0 0 0 17 0 }{PSTYLE "" 17 256 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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 23 "read(`a:fibsieve.txt
`);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%)fibsieveGR6$%\"nG%\"uG6'%\"f
G%\"sG%\"iG%&countG%\"kG6\"F/C/>8$-%&arrayG6#;\"\"!9$>&F26#F7F7>&F26#
\"\"\"F??(8&\"\"#F?F8%%trueG>&F26#FA,&&F26#,&FAF?!\"\"F?F?&F26#,&FAF?!
\"#F?F?>8%F3?(FAF7F?F8FC>&FQFFQ&aliveF/?(FAF7F?F8FC@$/-%$modG6$FE\"\"(
F7>FTQ'killedF/>8'F7?(FAF7F?F8FC@$/FTFU>Fjn,&FjnF?F?F?>9%-F46#;F?Fjn>8
(F??(FAF7F?F8FC@$F]oC$>&Fao6#FfoFE>Ffo,&FfoF?F?F?-%&printG6$%4Number~o
f~survivorsGFjnF/F/F/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "fi
bsieve(100,u);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6$%4Number~of~survivor
sG\"#))" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "eval(u);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'vectorG6#7dp\"\"\"F'\"\"#\"\"$\"\"&
\"\")\"#8\"#M\"#b\"#*)\"$W\"\"$L#\"$x$\"$5'\"%(f\"\"%%e#\"%\"=%\"%ln\"
&Y4\"\"&6x\"\"&d'G\"&D](\"'$R@\"\"'=k>\"'6yJ\"'HU^\"'S?$)\"(piM\"\"(yX
_$\"(()Gq&\"(luA*\")_.$\\\"\")<y:C\")p\")3R\")')fCj\"*T,el\"\"*'H9zE\"
*PW\\L%\"*L(39q\"+qJ!\\8\"\"+.>JO=\"+t]@rH\"+\\?uyx\",D!pie7\",u5,l.#
\",*4!G^H$\",t6H;L&\",s7dni)\"-XC'QeR\"\"-ihHNaO\"-z)HnG\"f\"-Tg-An&*
\".?fv3![:\".h>yIZ]#\".\")y`RF0%\".U)>.Zdl\"/lv<!onr\"\"/)GN+*yxF\"/`G
@qb%\\%\"/T\"[-YBF(\"0%*4YI!pw6\"0N\"42\\#R!>\"0H,<@:13$\"0$R\\I`:l!)
\"1d'G\\ap\\I\"\"1]!yz2&[6@\"12n!HiakT$\"1dZ)3qRz_&\"1k9zBVRW*)\"2@inC
SLsW\"\"21R9tB1*)y$\"2\"f6;s!z08'\"2(\\bZ4`[>**\"3)3nj\"Qk+0;\"3&eA6\"
p\\&pf#\"3t'*[F29'>?%\"3eAhQwj\"*)z'\"4*=9Z+;%z*z<\"4?h\"3P%>n+)G\"44.
`v.hY+m%\"4HkMYZ!Q6Sv\"5Qn(=7:/;+A\"\"5nJAo)>UFS(>\"50**4!*\\jM/%>$\"5
xHU[)*[V6i$)\"6\\gu1ZM_=IN\"\"6E!p^bMe*H#*=#\"6v]\">Ez\"[[Aa$" }}}
{PARA 256 "" 0 "" {TEXT -1 604 "\n\nsqrsieve:=proc(n,x,y)\n   local s,
 i, k, count, kill_cnt, m;\n\n   s:=array(1..n, [seq(\"alive\",i=1..n)
]);\n\n   count:=n;\n   for k from 2 to n while k^2<=count do\n      m
:=k^2;\n      kill_cnt:=0;\n      for i to n do\n         if s[i]=\"al
ive\" then\n            kill_cnt:=kill_cnt+1;\n            if kill_cnt
=m then\n               s[i]:=\"killed\";\n               kill_cnt:=0;
\n               count:=count-1;\n            fi;\n         fi;\n     \+
 od;\n   od;\n\n   y:=array(1..count);\n   k:=1;\n   for i to n do\n  \+
    if  s[i]=\"alive\" then\n         y[k]:=x[i];\n         k:=k+1;\n \+
     fi;\n   od;\n\n   print(` done ` );\n\nend;" }}{EXCHG {PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 23 "read(`a:sqrsieve.txt`);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#>%)sqrsieveGR6%%\"nG%\"xG%\"yG6(%\"sG%\"iG%\"kG%&countG
%)kill_cntG%\"mG6\"F1C)>8$-%&arrayG6$;\"\"\"9$7#-%$seqG6$Q&aliveF1/8%F
8>8'F:?(8&\"\"#F9F:1*$)FEFF\"\"\"FCC%>8)FH>8(\"\"!?(FAF9F9F:%%trueG@$/
&F46#FAF?C$>FO,&FOF9F9F9@$/FOFMC%>FUQ'killedF1>FOFP>FC,&FCF9!\"\"F9>9&
-F66#;F9FC>FEF9?(FAF9F9F:FR@$FTC$>&F^o6#FE&9%FV>FE,&FEF9F9F9-%&printG6
#%'~done~GF1F1F1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 7 "n:=100;
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"nG\"$+\"" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 31 "x:=array(1..n,[seq(i,i=1..n)]);" }}{PARA 12 "
" 1 "" {XPPMATH 20 "6#>%\"xG-%'vectorG6#7`q\"\"\"\"\"#\"\"$\"\"%\"\"&
\"\"'\"\"(\"\")\"\"*\"#5\"#6\"#7\"#8\"#9\"#:\"#;\"#<\"#=\"#>\"#?\"#@\"
#A\"#B\"#C\"#D\"#E\"#F\"#G\"#H\"#I\"#J\"#K\"#L\"#M\"#N\"#O\"#P\"#Q\"#R
\"#S\"#T\"#U\"#V\"#W\"#X\"#Y\"#Z\"#[\"#\\\"#]\"#^\"#_\"#`\"#a\"#b\"#c
\"#d\"#e\"#f\"#g\"#h\"#i\"#j\"#k\"#l\"#m\"#n\"#o\"#p\"#q\"#r\"#s\"#t\"
#u\"#v\"#w\"#x\"#y\"#z\"#!)\"#\")\"##)\"#$)\"#%)\"#&)\"#')\"#()\"#))\"
#*)\"#!*\"#\"*\"##*\"#$*\"#%*\"#&*\"#'*\"#(*\"#)*\"#**\"$+\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "sqrsieve(n,x,y);" }}{PARA 
11 "" 1 "" {XPPMATH 20 "6#%'~done~G" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 8 "eval(y);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%'vectorG
6#7gn\"\"\"\"\"#\"\"$\"\"&\"\"'\"\"(\"\"*\"#5\"#8\"#9\"#:\"#<\"#=\"#>
\"#@\"#D\"#E\"#F\"#H\"#I\"#J\"#L\"#M\"#P\"#R\"#T\"#U\"#V\"#X\"#\\\"#]
\"#^\"#`\"#a\"#b\"#e\"#h\"#i\"#j\"#l\"#m\"#n\"#p\"#t\"#u\"#v\"#x\"#z\"
##)\"#&)\"#')\"#()\"#*)\"#!*\"#\"*\"#$*\"#(*\"#)*\"#**" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "3 0" 577 }{VIEWOPTS 1 
1 0 1 1 1803 }