***************************************************************************
* This file was created at Tue Dec 28 10:18:18 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: <F239 e.106 >
F239 {
 ((DIVISION e.192 ) e.191 ) e.106  , <GET_IN (ID ) e.191 >:e.204  , <GET_IN 
(REVENUE ) e.191 >:e.209  , <GET_IN (GROWTH ) e.191 >:e.214  , <GET_IN (
BONUS ) e.191 >:e.219  = ((TR ) ((TD ) ((EM ) e.204 )) ((TD ) e.209 ) ((
                          TD ) e.214 ) ((TD ) e.219 )) <F239 e.106 > ;
 (e.191 ) e.106  = <F239 e.106 > ;
  = ;
}

* InputFormat: <F16 e.101 >
F16 {
 s.104 e.101  = s.104 <F16 e.101 > ;
  = ;
 ((SALES ) e.106 ) e.101  = ((HTML (XSL VERSION IS '1.0' ) (XMLNS XSL IS 
                               'http://www.w3.org/1999/XSL/Transform' ) 
                              (LANG IS 'en' )) ((HEAD ) ((TITLE ) 'Sales Results By Division'
                                                 )) ((BODY ) ((TABLE (BORDER 
IS '1' )) ((TR ) ((TH ) 'Division' ) ((TH ) 'Revenue' ) ((TH ) 'Growth' 
           ) ((TH ) 'Bonus' )) <F239 e.106 >))) <F16 e.101 > ;
 ((s.108 ) e.106 ) e.101  = <F16 e.101 > ;
}

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