***************************************************************************
* This file was created at Tue Dec 28 10:20:02 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: <F579 e.246 >
F579 {
 s.347 e.246  = s.347 <F579 e.246 > ;
  = ;
 ((DOCUMENT ) e.349 ) e.246  , <GET_IN (TITLE ) e.349 >:e.381  , <GET_IN 
(DESCRIPTION ) e.349 >:e.398  = '   ' ((HTML )    ((HEAD )    ((TITLE ) 
                                          e.381    )    )    ((BODY )   
 e.398    <F152 e.349 >    )   ' ' ) <F579 e.246 > ;
 ((TITLE ) e.349 ) e.246  = ((H1 ) <F346 e.349 >) <F579 e.246 > ;
 ((PARAGRAPH ) e.349 ) e.246  = ((P ) <F579 e.349 >) <F579 e.246 > ;
 ((PRODUCT ) e.349 ) e.246  , <GET_IN (CODE ) e.349 >:e.472  , <GET_IN (
NAME ) e.349 >:e.475  = ((A (HREF IS e.472 )) e.475 ) <F579 e.246 > ;
 ((s.351 ) e.349 ) e.246  = <F579 e.246 > ;
}

* InputFormat: <F346 e.163 >
F346 {
 s.244 e.163  = s.244 <F346 e.163 > ;
  = ;
 ((DOCUMENT ) e.246 ) e.163  , <GET_IN (TITLE ) e.246 >:e.278  , <GET_IN 
(DESCRIPTION ) e.246 >:e.295  = '   ' ((HTML )    ((HEAD )    ((TITLE ) 
                                          e.278    )    )    ((BODY )   
 e.295    <F152 e.246 >    )   ' ' ) <F346 e.163 > ;
 ((TITLE ) e.246 ) e.163  = ((H1 ) <F346 e.246 >) <F346 e.163 > ;
 ((PARAGRAPH ) e.246 ) e.163  = ((P ) <F579 e.246 >) <F346 e.163 > ;
 ((PRODUCT ) e.246 ) e.163  , <GET_IN (CODE ) e.246 >:e.519  , <GET_IN (
NAME ) e.246 >:e.522  = ((A (HREF IS e.519 )) e.522 ) <F346 e.163 > ;
 ((s.248 ) e.246 ) e.163  = <F346 e.163 > ;
}

* InputFormat: <F152 e.106 >
F152 {
 s.161 e.106  = s.161 <F152 e.106 > ;
  = ;
 ((DOCUMENT ) e.163 ) e.106  , <GET_IN (TITLE ) e.163 >:e.195  , <GET_IN 
(DESCRIPTION ) e.163 >:e.212  = '   ' ((HTML )    ((HEAD )    ((TITLE ) 
                                          e.195    )    )    ((BODY )   
 e.212    <F152 e.163 >    )   ' ' ) <F152 e.106 > ;
 ((TITLE ) e.163 ) e.106  = ((H1 ) <F346 e.163 >) <F152 e.106 > ;
 ((PARAGRAPH ) e.163 ) e.106  = ((P ) <F579 e.163 >) <F152 e.106 > ;
 ((PRODUCT ) e.163 ) e.106  , <GET_IN (CODE ) e.163 >:e.590  , <GET_IN (
NAME ) e.163 >:e.593  = ((A (HREF IS e.590 )) e.593 ) <F152 e.106 > ;
 ((s.165 ) e.163 ) e.106  = <F152 e.106 > ;
}

* InputFormat: <F16 e.101 >
F16 {
 s.104 e.101  = s.104 <F16 e.101 > ;
  = ;
 ((DOCUMENT ) e.106 ) e.101  , <GET_IN (TITLE ) e.106 >:e.138  , <GET_IN 
(DESCRIPTION ) e.106 >:e.155  = '   ' ((HTML )    ((HEAD )    ((TITLE ) 
                                          e.138    )    )    ((BODY )   
 e.155    <F152 e.106 >    )   ' ' ) <F16 e.101 > ;
 ((TITLE ) e.106 ) e.101  = ((H1 ) <F346 e.106 >) <F16 e.101 > ;
 ((PARAGRAPH ) e.106 ) e.101  = ((P ) <F579 e.106 >) <F16 e.101 > ;
 ((PRODUCT ) e.106 ) e.101  , <GET_IN (CODE ) e.106 >:e.707  , <GET_IN (
NAME ) e.106 >:e.710  = ((A (HREF IS e.707 )) e.710 ) <F16 e.101 > ;
 ((s.108 ) e.106 ) e.101  = <F16 e.101 > ;
}

****************************** The End ************************************