***************************************************************************
* This file was created at Tue Jan 18 18:54:20 2000
* Here is a residual program of the last supercompilation by the SCP4.
* A task from DI.mst was supercompiled.
* The residual program is in Refal5.
* You have to change the parametrs of the calls of DI with data,
* as well as to choose a call to run.
* Please, be carefull:
* a) the order of the parametrs can be incorrect;
***************************************************************************
$EXTERN XML_REF1 ;
$ENTRY Go {
= <Prout <DI1 >> ;
}
* InputFormat: <DI1 >
DI1 {
, <XML_REF1 >:e.101 = <F8 e.101 > ;
}
* InputFormat: <F340 e.102 >
F340 {
s.234 e.102 = <F340 e.102 > ;
e.102 = <F314 e.102 > ;
}
* InputFormat: <F314 e.102 >
F314 {
= ;
((s.223 ) e.221 ) e.102 = <F11 e.221 s.223 > <S1 e.102 s.223 > ;
s.226 e.102 = <F340 e.102 > ;
}
* InputFormat: <F248 e.102 >
F248 {
= ;
((s.195 ) e.193 ) e.102 = <F11 e.193 s.195 > <S2 e.102 s.195 > ;
s.198 e.102 = (FALSE ) ;
}
* InputFormat: <F146 e.102 >
F146 {
= ;
((s.166 ) e.164 ) e.102 = <F11 e.164 s.166 > <S3 e.102 s.166 > ;
s.169 e.102 = (FALSE ) ;
}
* InputFormat: <F102 e.102 >
F102 {
= ;
((s.142 ) e.140 ) e.102 = <F11 e.140 s.142 > <S4 e.102 s.142 > ;
s.145 e.102 = (FALSE ) ;
}
* InputFormat: <F35 e.102 >
F35 {
= ;
((s.117 ) e.115 ) e.102 = <F11 e.115 s.117 > <S5 e.102 s.117 > ;
s.120 e.102 = (FALSE ) ;
}
* InputFormat: <F11 e.102 s.104 >
F11 {
DOC = (FALSE ) ;
((s.110 ) e.108 ) e.102 DOC = <F11 e.108 s.110 > <S6 e.102 s.110 > ;
s.113 e.102 DOC = (FALSE ) ;
CHAPTER = (FALSE ) ;
((s.135 ) e.133 ) e.102 CHAPTER = <F11 e.133 s.135 > <S7 e.102 s.135 >
;
s.138 e.102 CHAPTER = (FALSE ) ;
SECTION = (FALSE ) ;
((s.188 ) e.186 ) e.102 SECTION = <F11 e.186 s.188 > <S8 e.102 s.188 >
;
s.191 e.102 SECTION = (FALSE ) ;
e.102 TITLE = <F314 e.102 > ;
e.102 PARA = <F314 e.102 > ;
e.102 NOTE = <F314 e.102 > ;
e.102 EMPH = <F314 e.102 > ;
e.102 s.104 = (FALSE ) ;
}
* InputFormat: <F8 e.101 >
F8 {
((s.104 ) e.102 ) e.101 = <F11 e.102 s.104 > <F8 e.101 > ;
= ;
}
* InputFormat: <S8 e.102 s.188 >
S8 {
e.102 TITLE = <F248 e.102 > ;
e.102 s.188 = (FALSE ) ;
}
* InputFormat: <S7 e.102 s.135 >
S7 {
e.102 TITLE = <F102 e.102 > ;
e.102 s.135 = (FALSE ) ;
}
* InputFormat: <S6 e.102 s.110 >
S6 {
e.102 TITLE = <F35 e.102 > ;
e.102 s.110 = (FALSE ) ;
}
* InputFormat: <S5 e.102 s.117 >
S5 {
e.102 CHAPTER = <F35 e.102 > ;
e.102 s.117 = (FALSE ) ;
}
* InputFormat: <S4 e.102 s.142 >
S4 {
e.102 NOTE = <F102 e.102 > ;
e.102 PARA = <F102 e.102 > ;
e.102 SECTION = <F146 e.102 > ;
e.102 s.142 = (FALSE ) ;
}
* InputFormat: <S3 e.102 s.166 >
S3 {
e.102 SECTION = <F146 e.102 > ;
e.102 s.166 = (FALSE ) ;
}
* InputFormat: <S2 e.102 s.195 >
S2 {
e.102 NOTE = <F248 e.102 > ;
e.102 PARA = <F248 e.102 > ;
e.102 s.195 = (FALSE ) ;
}
* InputFormat: <S1 e.102 s.223 >
S1 {
e.102 EMPH = <F314 e.102 > ;
e.102 s.223 = (FALSE ) ;
}
****************************** The End ************************************