# LaTeX2HTML 95.1 (Fri Jan 20 1995)
# Associate image original text (scrambled) with physical files.

$key = q/{tabular}p3.0inp3.5inminipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(get-methodmessageobject)(objectmessage))null(definemethod?procedure?)listminipage;SPM_amp;minipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(askobjectmessage.args)(let((method(get-methodmessageobject)))(if(method?method)(applymethodobjectargs)(error;SPM_quot;Nomethodformesage;SPM_quot;message))))listminipage{tabular}/;
$cached_env_img{$key} ='<IMG  ALIGN=BOTTOM ALT="" SRC="img1.gif">'; 
$key = q/{tabular}p3.5inp2.5inminipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(create-stack)colorHighlitedAnswer(let((value'()))colorEndOfAnswer(lambda(message)(casemessage((PUSH)colorHighlitedAnswer(lambda(selfnew)(set!value(consnewvalue)))colorEndOfAnswer)((PEEK)colorHighlitedAnswer(lambda(self)(carvalue))colorEndOfAnswer)((CLEAR)colorHighlitedAnswer(lambda(self)(set!value'()))colorEndOfAnswer)((POP)colorHighlitedAnswer(lambda(self)(let((return(askself'peek)))(set!value(cdrvalue))return))colorEndOfAnswer)))))listminipage;SPM_amp;minipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(defines(create-stack))(asks'push5)(asks'push3)(asks'pop)==;SPM_gt;3(asks'push1)(asks'pop)==;SPM_gt;1(asks'pop)==;SPM_gt;5listminipage{tabular}/;
$cached_env_img{$key} ='<IMG  ALIGN=BOTTOM ALT="" SRC="img2.gif">'; 
$key = q/{tabular}p3.5inp2.5inminipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(create-paircar-valcdr-val)colorHighlitedAnswer(let((last-change(create-var'()))(the-car(create-varcar-val))(the-cdr(create-varcdr-val)))colorEndOfAnswer(lambda(message)(casemessage((SET-CAR!)colorHighlitedAnswer(lambda(selfnew)(asklast-change'set!'car)(askthe-car'set!new))colorEndOfAnswer)((SET-CDR!)colorHighlitedAnswer(lambda(selfnew)(asklast-change'set!'cdr)(askthe-cdr'set!new))colorEndOfAnswer)((CAR)colorHighlitedAnswer(lambda(self)(askthe-car'get))colorEndOfAnswer)((CDR)colorHighlitedAnswer(lambda(self)(askthe-cdr'get))colorEndOfAnswer)((PRINT)(lambda(self)(display(askself'car))(display;SPM_quot;.;SPM_quot;(display(askself'cdr))))((UNDO!)colorHighlitedAnswer(lambda(self)(case(asklast-change'undo!)((CAR)(askthe-car'undo!))((CDR)(askthe-cdr'undo!))))colorEndOfAnswer)))))listminipage;SPM_amp;minipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(definep(create-pair12))(askp'print)==;SPM_gt;(1.2)(askp'set-car!3)(askp'print)==;SPM_gt;(3.2)(askp'set-cdr!4)(askp'print)==;SPM_gt;(3.4)(askp'set-car!5)(askp'print)==;SPM_gt;(5.4)(askp'undo!)(askp'print)==;SPM_gt;(3.4)(askp'undo!)(askp'print)==;SPM_gt;(3.2)(askp'undo!)(askp'print)==;SPM_gt;(1.2)listminipage{tabular}/;
$cached_env_img{$key} ='<IMG  ALIGN=BOTTOM ALT="" SRC="img4.gif">'; 
$key = q/{tabular}p3.5inp2.5inminipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(create-varvalue)colorHighlitedAnswer(let((undo(create-stack)))(askundo'pushvalue)colorEndOfAnswer(lambda(message)(casemessage((SET!)colorHighlitedAnswer(lambda(selfnew)(askundo'pushnew))colorEndOfAnswer)((GET)colorHighlitedAnswer(lambda(self)(askundo'peek))colorEndOfAnswer)((UNDO!)colorHighlitedAnswer(lambda(self)(askundo'pop))colorEndOfAnswer)))))listminipage;SPM_amp;minipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(definea(create-var1))(aska'get)==;SPM_gt;1(aska'set!2)(aska'get)==;SPM_gt;2(aska'undo!)(aska'get)==;SPM_gt;1listminipage{tabular}/;
$cached_env_img{$key} ='<IMG  ALIGN=BOTTOM ALT="" SRC="img3.gif">'; 
$key = q/{tabular}p3.5inp2.5inminipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(define(create-varvalue)colorHighlitedAnswer(let((undo(create-stack))(redo(create-stack)))(askundo'pushvalue)colorEndOfAnswer(lambda(message)(casemessage((SET!)colorHighlitedAnswer(lambda(selfnew)(askredo'clear)(askundo'pushnew))colorEndOfAnswer)((GET)colorHighlitedAnswer(lambda(self)(askundo'peek))colorEndOfAnswer)((UNDO!)colorHighlitedAnswer(lambda(self)(askredo'push(askundo'pop)))colorEndOfAnswer)((REDO!)colorHighlitedAnswer(lambda(self)(askundo'push(askredo'pop)))colorEndOfAnswer)))))listminipage;SPM_amp;minipage[t]linewidthlist_inline$bullet$_inline%setlengthtopsep0insetlengthpartopsep0insetlengthitemsep0insetlengthparsep0insetlengthleftmargin1.5emsetlengthrightmargin0insetlengthitemindent0initem[]obeyspacesobeylinesfootnotesizett(definea(create-var1))(aska'set!2)(aska'undo!)(aska'get)==;SPM_gt;2(aska'undo!)(aska'get)==;SPM_gt;1(aska'redo!)(aska'get)==;SPM_gt;2listminipage{tabular}/;
$cached_env_img{$key} ='<IMG  ALIGN=BOTTOM ALT="" SRC="img5.gif">'; 

1;