***************************************************************************
* This file was created at Tue Dec 28 10:23:57 1999
* Here is a residual program of the last supercompilation by the SCP4.
* A task from XI.mst was supercompiled.
* The residual program is in Refal5.
* You have to change the parametrs of the calls of XI 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 ,REF_XML ,GET_IN ;
$ENTRY Go {
= <Prout <XI1 >> ;
}
* InputFormat: <XI1 >
XI1 {
, <XML_REF1 >:e.101 , <REF_XML <F16 e.101 >>:e.102 = e.102 ;
}
* InputFormat: <F16 e.101 >
F16 {
s.104 e.101 = s.104 <F16 e.101 > ;
= ;
((DOC ) e.106 ) e.101 , <GET_IN (TITLE ) e.106 >:e.142 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.142 ) ) ((BODY ) <F162
e.106 > ) ' ' ) <F16 e.101 > ;
((SECTION ) e.106 ) e.101 = ' ' <F362 e.106 > <F16 e.101 > ;
((CHAPTER ) e.106 ) e.101 = ' ' <F602 e.106 > <F16 e.101 > ;
((PARA ) e.106 ) e.101 = ' ' ((P ) <F1198 e.106 > ' ' ) <F16 e.101
> ;
((NOTE ) e.106 ) e.101 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.106 > ' ' ) <F16 e.101
> ;
((EMPH ) e.106 ) e.101 = ' ' ((EM ) <F2055 e.106 > ' ' ) <F16 e.101
> ;
((s.108 ) e.106 ) e.101 = <F16 e.101 > ;
}
* InputFormat: <F162 e.106 >
F162 {
s.163 e.106 = s.163 <F162 e.106 > ;
= ;
((DOC ) e.165 ) e.106 , <GET_IN (TITLE ) e.165 >:e.201 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.201 ) ) ((BODY ) <F162
e.165 > ) ' ' ) <F162 e.106 > ;
((SECTION ) e.165 ) e.106 = ' ' <F362 e.165 > <F162 e.106 > ;
((CHAPTER ) e.165 ) e.106 = ' ' <F602 e.165 > <F162 e.106 > ;
((TITLE ) e.165 ) e.106 = ' ' ((H1 ) <F899 e.165 > ' ' ) <F162 e.106
> ;
((PARA ) e.165 ) e.106 = ' ' ((P ) <F1198 e.165 > ' ' ) <F162 e.106
> ;
((NOTE ) e.165 ) e.106 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.165 > ' ' ) <F162 e.106
> ;
((EMPH ) e.165 ) e.106 = ' ' ((EM ) <F2055 e.165 > ' ' ) <F162 e.106
> ;
((s.167 ) e.165 ) e.106 = <F162 e.106 > ;
}
* InputFormat: <F362 e.165 >
F362 {
s.246 e.165 = s.246 <F362 e.165 > ;
= ;
((DOC ) e.248 ) e.165 , <GET_IN (TITLE ) e.248 >:e.284 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.284 ) ) ((BODY ) <F162
e.248 > ) ' ' ) <F362 e.165 > ;
((SECTION ) e.248 ) e.165 = ' ' <F362 e.248 > <F362 e.165 > ;
((CHAPTER ) e.248 ) e.165 = ' ' <F602 e.248 > <F362 e.165 > ;
((TITLE ) e.248 ) e.165 = ' ' ((H3 ) <F899 e.248 > ' ' ) <F362 e.165
> ;
((PARA ) e.248 ) e.165 = ' ' ((P ) <F1198 e.248 > ' ' ) <F362 e.165
> ;
((NOTE ) e.248 ) e.165 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.248 > ' ' ) <F362 e.165
> ;
((EMPH ) e.248 ) e.165 = ' ' ((EM ) <F2055 e.248 > ' ' ) <F362 e.165
> ;
((s.250 ) e.248 ) e.165 = <F362 e.165 > ;
}
* InputFormat: <F602 e.248 >
F602 {
s.349 e.248 = s.349 <F602 e.248 > ;
= ;
((DOC ) e.351 ) e.248 , <GET_IN (TITLE ) e.351 >:e.387 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.387 ) ) ((BODY ) <F162
e.351 > ) ' ' ) <F602 e.248 > ;
((SECTION ) e.351 ) e.248 = ' ' <F362 e.351 > <F602 e.248 > ;
((CHAPTER ) e.351 ) e.248 = ' ' <F602 e.351 > <F602 e.248 > ;
((TITLE ) e.351 ) e.248 = ' ' ((H2 ) <F899 e.351 > ' ' ) <F602 e.248
> ;
((PARA ) e.351 ) e.248 = ' ' ((P ) <F1198 e.351 > ' ' ) <F602 e.248
> ;
((NOTE ) e.351 ) e.248 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.351 > ' ' ) <F602 e.248
> ;
((EMPH ) e.351 ) e.248 = ' ' ((EM ) <F2055 e.351 > ' ' ) <F602 e.248
> ;
((s.353 ) e.351 ) e.248 = <F602 e.248 > ;
}
* InputFormat: <F899 e.351 >
F899 {
s.478 e.351 = s.478 <F899 e.351 > ;
= ;
((DOC ) e.480 ) e.351 , <GET_IN (TITLE ) e.480 >:e.516 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.516 ) ) ((BODY ) <F162
e.480 > ) ' ' ) <F899 e.351 > ;
((SECTION ) e.480 ) e.351 = ' ' <F362 e.480 > <F899 e.351 > ;
((CHAPTER ) e.480 ) e.351 = ' ' <F602 e.480 > <F899 e.351 > ;
((PARA ) e.480 ) e.351 = ' ' ((P ) <F1198 e.480 > ' ' ) <F899 e.351
> ;
((NOTE ) e.480 ) e.351 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.480 > ' ' ) <F899 e.351
> ;
((EMPH ) e.480 ) e.351 = ' ' ((EM ) <F2055 e.480 > ' ' ) <F899 e.351
> ;
((s.482 ) e.480 ) e.351 = <F899 e.351 > ;
}
* InputFormat: <F1198 e.480 >
F1198 {
s.607 e.480 = s.607 <F1198 e.480 > ;
= ;
((DOC ) e.609 ) e.480 , <GET_IN (TITLE ) e.609 >:e.645 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.645 ) ) ((BODY ) <F162
e.609 > ) ' ' ) <F1198 e.480 > ;
((SECTION ) e.609 ) e.480 = ' ' <F362 e.609 > <F1198 e.480 > ;
((CHAPTER ) e.609 ) e.480 = ' ' <F602 e.609 > <F1198 e.480 > ;
((PARA ) e.609 ) e.480 = ' ' ((P ) <F1198 e.609 > ' ' ) <F1198 e.480
> ;
((NOTE ) e.609 ) e.480 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.609 > ' ' ) <F1198 e.480
> ;
((EMPH ) e.609 ) e.480 = ' ' ((EM ) <F2055 e.609 > ' ' ) <F1198
e.480 > ;
((s.611 ) e.609 ) e.480 = <F1198 e.480 > ;
}
* InputFormat: <F1595 e.609 >
F1595 {
s.776 e.609 = s.776 <F1595 e.609 > ;
= ;
((DOC ) e.778 ) e.609 , <GET_IN (TITLE ) e.778 >:e.814 = ' ' ((HTML )
((HEAD ) ((TITLE ) e.814 ) ) ((BODY ) <F162
e.778 > ) ' ' ) <F1595 e.609 > ;
((SECTION ) e.778 ) e.609 = ' ' <F362 e.778 > <F1595 e.609 > ;
((CHAPTER ) e.778 ) e.609 = ' ' <F602 e.778 > <F1595 e.609 > ;
((PARA ) e.778 ) e.609 = ' ' ((P ) <F1198 e.778 > ' ' ) <F1595 e.609
> ;
((NOTE ) e.778 ) e.609 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.778 > ' ' ) <F1595 e.609
> ;
((EMPH ) e.778 ) e.609 = ' ' ((EM ) <F2055 e.778 > ' ' ) <F1595
e.609 > ;
((s.780 ) e.778 ) e.609 = <F1595 e.609 > ;
}
* InputFormat: <F2055 e.778 >
F2055 {
s.973 e.778 = s.973 <F2055 e.778 > ;
= ;
((DOC ) e.975 ) e.778 , <GET_IN (TITLE ) e.975 >:e.1011 = ' ' ((HTML
) ((HEAD ) ((TITLE ) e.1011 ) ) ((BODY )
<F162 e.975 > ) ' ' ) <F2055 e.778 > ;
((SECTION ) e.975 ) e.778 = ' ' <F362 e.975 > <F2055 e.778 > ;
((CHAPTER ) e.975 ) e.778 = ' ' <F602 e.975 > <F2055 e.778 > ;
((PARA ) e.975 ) e.778 = ' ' ((P ) <F1198 e.975 > ' ' ) <F2055 e.778
> ;
((NOTE ) e.975 ) e.778 = ' ' ((P (CLASS IS 'note' )) ((B ) 'NOTE: '
) <F1595 e.975 > ' ' ) <F2055 e.778
> ;
((EMPH ) e.975 ) e.778 = ' ' ((EM ) <F2055 e.975 > ' ' ) <F2055
e.778 > ;
((s.977 ) e.975 ) e.778 = <F2055 e.778 > ;
}
****************************** The End ************************************