{VERSION 2 3 "DEC ALPHA UNIX" "2.3" }
{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 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 98 "perm:=proc(L::list)
\n  local n;\n  n:=nops(L);\n  if n=0 then\n    L\n  else\n    recur(L
,n,n)\n  fi\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 84 "exchan
ge:=proc(L,i,j)\n  local k,L1;\n  L1:=L:\n  L1[i]:=L[j];\n  L1[j]:=L[i
];\n  L1\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 217 "recur:=p
roc(L,i,n)\n    local j,L1,L2;\n    if i=1 then print(L)\n    else \n \+
       L1:=L;\n        for j to i do \n        L2:=exchange(L1,i,j);\n
        recur(L2,i-1,n);\n        L1:=exchange(L2,i,j)\n      od\n    \+
fi\n  end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 14 "perm([a,b,c])
;" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#7%%\"bG%\"cG%\"aG" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#7%%\"cG%\"bG%\"aG" }}{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%\"aG%\"cG" }}{PARA 11 
"" 1 "" {XPPMATH 20 "6#7%%\"aG%\"bG%\"cG" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#7%%\"aG%\"bG%\"cG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "
" }}}}{MARK "4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }