{VERSION 3 0 "DEC ALPHA UNIX" "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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 54 "allp := combstruct[i
terstructs](Permutation([a,b,c]));" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#
>%%allpG-%&TABLEG6#7$/%)finishedG%&falseG/%*nextvalueGR6\"6,%'csLOCnG%
+csLOCfEvenG%)csLOCnewG%,csLOCnewposG%'csLOCiG%*csLOCremtG%,csLOCresul
tG%/csLOColdresultG%.csLOCfNewEvenG%*csLOClastG6#%^oCopyright~(c)~1995
~by~Eithne~Murray~and~INRIA.~All~rights~reserved.GF/C&>8$-%%nopsG6#7%%
\"aG%\"bG%\"cG>8)-%#opG6$\"\"%-%%evalG6#9!@%-%&evalbG6#/FH%%NULLGC'>-F
P6#.%$resG7#-%$seqG6$8(/F[o;\"\"\"F?>-FP6#.%)evenflagG%%trueG@%-%%type
G6$F?%%evenG>8-7$-Fin6$F[o/F[o;\"\"#F?F^o>F[p7%-Fin6$F[o/F[o;\"\"$F?Fa
pF^o>-FP6#.%*terminateGF[p>8*FCC+>8+&FHFZ>8%&FHFao>8&-%Pcombstruct/ite
rstructs/Permutation/nextpositionG6$FbqFeq>8'&Fhq6#F^o>8,&Fhq6#Fap>F_q
7#-Fin6$&FC6#&F]r6#F[oF\\o>FYF]r>F`oFar@$/F]r&FHF[q>&%\"tG6#.F*FdoF_qF
/6#FcsF/" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "interface(verbo
seproc=2):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 22 "eval(allp[nex
tvalue]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#R6\"6,%'csLOCnG%+csLOCfEv
enG%)csLOCnewG%,csLOCnewposG%'csLOCiG%*csLOCremtG%,csLOCresultG%/csLOC
oldresultG%.csLOCfNewEvenG%*csLOClastG6#%^oCopyright~(c)~1995~by~Eithn
e~Murray~and~INRIA.~All~rights~reserved.GF$C&>8$-%%nopsG6#7%%\"aG%\"bG
%\"cG>8)-%#opG6$\"\"%-%%evalG6#9!@%-%&evalbG6#/F=%%NULLGC'>-FE6#.%$res
G7#-%$seqG6$8(/FV;\"\"\"F4>-FE6#.%)evenflagG%%trueG@%-%%typeG6$F4%%eve
nG>8-7$-FT6$FV/FV;\"\"#F4FY>F`o7%-FT6$FV/FV;\"\"$F4FfoFY>-FE6#.%*termi
nateGF`o>8*F8C+>8+&F=FO>8%&F=Ffn>8&-%Pcombstruct/iterstructs/Permutati
on/nextpositionG6$FgpFjp>8'&F]q6#FY>8,&F]q6#Ffo>Fdp7#-FT6$&F86#&Fbq6#F
VFW>FNFbq>FenFfq@$/Fbq&F=F`p>&%\"tG6#.%)finishedGFinFdpF$6#FhrF$" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "while not combstruct[finishe
d](allp) do     combstruct[nextstruct](allp) \nod;" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#7%%\"aG%\"bG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#
7%%\"bG%\"aG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"cG%\"aG%\"bG
" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"aG%\"cG%\"bG" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#7%%\"bG%\"cG%\"aG" }}{PARA 11 "" 1 "" {XPPMATH 20 
"6#7%%\"cG%\"bG%\"aG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}
}}{MARK "3 6" 0 }{VIEWOPTS 1 1 0 1 1 1803 }