***************************************************************************
* This file was created at Tue Dec 28 10:17:33 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: <F116 e.106 >
F116 {
 ((STOCK e.150 ) e.149 ) e.106  , <GET_IN (SYMBOL ) e.149 >:e.160  , <GET_IN 
(NAME ) e.149 >:e.165  , <GET_IN (PRICE ) e.149 >:e.170  = ((TR ) ((TD )
 e.160 ) ((TD ) e.165 ) ((TD ) e.170 )) <F116 e.106 > ;
 (e.149 ) e.106  = <F116 e.106 > ;
  = ;
}

* InputFormat: <F16 e.101 >
F16 {
 s.104 e.101  = s.104 <F16 e.101 > ;
  = ;
 ((PORTFOLIO ) e.106 ) e.101  = ((HTML ) ((BODY ) ((TABLE (BORDER IS '2'
                                            ) (BGCOLOR IS 'yellow' )) ((
TR ) ((TH ) 'Symbol' ) ((TH ) 'Name' ) ((TH ) 'Price' )) <F116 e.106 >))
) <F16 e.101 > ;
 ((s.108 ) e.106 ) e.101  = <F16 e.101 > ;
}

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