{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 "Text Output" -1 2 1 
{CSTYLE "" -1 -1 "Courier" 1 10 0 0 255 1 0 0 0 0 0 1 3 0 0 }1 0 0 -1 
-1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Warning" 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 "Error" 7 8 1 {CSTYLE "" -1 -1 "" 0 1 255 0 255 1 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 68 "toto:=proc() \"a nic
e procedure\" end: \ntoto(0):=\"a remembered value\":" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "addressof(toto);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#\"+oFNp`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
41 "`address of proc`:=addressof(eval(toto));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%0address~of~procG\"+k7Op`" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 27 "pointto(`address of proc`);" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#R6\"F$F$E\\s\"\"\"!Q3a~remembered~value6\"Q1a~nice~proc
edure6\"F$F$F$" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "`address \+
of remember table`:=addressof(op(4,eval(toto)));" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%:address~of~remember~tableG\"+[KNp`" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 37 "pointto(`address of remember table`);" }}
{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&TABLEG6#7#/\"\"!Q3a~remembered~valu
e6\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 13 "toto:='toto';" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%totoGF$" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 11 "eval(toto);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%to
toG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 27 "pointto(`address of \+
proc`);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#R6\"F$F$E\\s\"\"\"!Q3a~reme
mbered~value6\"Q1a~nice~procedure6\"F$F$F$" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 17 "op(4,eval(toto));" }}{PARA 8 "" 1 "" {TEXT -1 40 "E
rror, improper op or subscript selector" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 37 "pointto(`address of remember table`);" }}{PARA 12 "" 
1 "" {XPPMATH 20 "6#-%&TABLEG6#7#/\"\"!Q3a~remembered~value6\"" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 300 "dagsubs:=proc(u,expr)\n  lo
cal doit;\n  doit:=proc(expr)\n    option remember;\n    if nops(expr)
>1 then map(doit,expr)\n    elif type(expr,function) then op(0,expr)(d
oit(op(expr)))\n    else expr\n    fi\n  end;\n  doit(op(1,u)):=op(2,u
);\n  [doit(expr),addressof(eval(doit)),addressof(op(4,eval(doit)))]\n
end:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 25 "e:=diff(exp(sin(x))
,x$3);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"eG,(*&-%$cosG6#%\"xG\"\"
\"-%$expG6#-%$sinGF)F+!\"\"*(F/F+F'F+F,F+!\"$*&)F'\"\"$\"\"\"F,F+F+" }
}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 31 "`bloody hell`:=dagsubs(x=P
i,e);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,bloody~hellG7%\"\"!\"+seOp
`\"+Cijp`" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "eval(doit);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#%%doitG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 17 "op(4,eval(doit));" }}{PARA 8 "" 1 "" {TEXT -1 40 "Err
or, improper op or subscript selector" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 26 "pointto(`bloody hell`[2]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#R6#%%exprG6\"6#%)rememberGE\\s-\"\"$F*,$*&-%$cosG6#%\"x
G\"\"\"-%$expG6#-%$sinGF/F1!\"\"F1F-F7F5\"\"!,$*(F5F1F-F1F2F1!\"$F8*&)
F-F*\"\"\"F2F1F7F;F;F0%#PiGF7F7*$)F-F*F>F7F2F1,(F,F7F:F;F<F1F8@'2F1-%%
nopsG6#9$-%$mapG6$T#FH-%%typeG6$FH%)functionG--%#opG6$F8FH6#-FL6#-FSFG
FHF&F&6$%%doitGFZ" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointt
o(`bloody hell`[3]);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#-%&TABLEG6#7./
!\"\"F(/,$*&-%$cosG6#%\"xG\"\"\"-%$expG6#-%$sinGF.F0F(F0/*$)F,\"\"$\"
\"\"F(/F,F(/F/%#PiG/,(F+F(*(F4F0F,F0F1F0!\"$*&)F,F9F:F1F0F0\"\"!/FBF(/
F1F0/FAFA/,$F@FAFD/F9F9/F4FD" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 360 "dagsubs:=proc(u,expr)\n  local doit,result;\n  doit:=proc(expr)
\n    option remember;\n    if nops(expr)>1 then map(procname,expr)\n \+
   elif type(expr,function) then op(0,expr)(procname(op(expr)))\n    e
lse expr\n    fi\n  end;\n  doit(op(1,u)):=op(2,u);\n  result:=doit(ex
pr);\n  subsop(4=NULL,eval(doit));\n[result,addressof(eval(doit)),addr
essof(op(4,eval(doit)))]\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 31 "`bloody hell`:=dagsubs(x=Pi,e);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%,bloody~hellG7%%\"eG\"+K+tp`\"+O<=p`" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 26 "pointto(`bloody hell`[2]);" }}{PARA 12 "" 1 "" 
{XPPMATH 20 "6#R6#%%exprG6\"6#%)rememberGF&@'2\"\"\"-%%nopsG6#9$-%$map
G6$9!F/-%%typeG6$F/%)functionG--%#opG6$\"\"!F/6#-F36#-F:F.F/F&F&F&" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 26 "pointto(`bloody hell`[3]);
" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 368 "dagseries:=proc(f,x)\n
  local doit,result;\n  if nargs>2 then Order:=args[3] fi;\n  doit:=pr
oc(f,x)\n    option remember;\n    if type(f,function) then\n      rea
dlib(`series/`.(op(0,f)))\n        (op(map(procname,[op(f)],x)),x)\n  \+
  elif nops(f)>1 then\n      series(map(procname,f,x),x)\n    else f\n
    fi\n  end;\n  result:=doit(f,x);\n  subsop(4=NULL,eval(doit));\n  \+
result\nend:" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "dagseries(d
iff(exp(sin(x)),x$3),x,10);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#+7%\"xG
!\"$\"\"\"!\"%\"\"##!\"\"\"\"#\"\"$#\"\"(\"\"$\"\"%#\"$<#\"$?\"\"\"&#
\"\"%\"#X\"\"'#!%^H\"%S]\"\"(#!#6\"#N\"\")#\"%\"*>\"'g47\"\"*-%\"OG6#
\"\"\"\"#5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "2
4 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }