***************************************************************************
* This file was created at Tue Dec 28 10:19:22 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: <F1114 e.223 >
F1114 {
 s.542 e.223  = s.542 <F1114 e.223 > ;
  = ;
 ((RECIPE ) e.544 ) e.223  , <GET_IN (NAME ) e.544 >:e.584  , <GET_IN (NAME 
) e.544 >:e.619  , <GET_IN (DESCRIPTION ) e.544 >:e.644  = '  ' ((HTML )
     ((HEAD )       ((TITLE )         e.584       )     )     ((BODY )  
     ((H3 )         e.619       )       ((U )         e.644       )     
  <F326 e.544 >     )  ' ' ) <F1114 e.223 > ;
 ((INGREDIENTS ) e.544 ) e.223  = '  ' ((H4 ) 'Ingredients' )   ((TABLE 
(BORDER IS '1' ))     ((TR (BGCOLOR IS '#308030' )) ((TH ) 'Qty' ) ((TH 
                       ) 'Units' ) ((TH ) 'Item' ))     <F820 e.544 >  ' '
 ) <F1114 e.223 > ;
 ((INSTRUCTIONS ) e.544 ) e.223  = '  ' ((H4 ) 'Instructions' )   ((OL )
   <F1114 e.544 >  ' ' ) <F1114 e.223 > ;
 ((STEP ) e.544 ) e.223  , <GET_IN ('.' ) e.544 >:e.812  =  ' ' ((LI ) e.812 
) <F1114 e.223 > ;
 ((s.546 ) e.544 ) e.223  = <F1114 e.223 > ;
}

* InputFormat: <F820 e.223 >
F820 {
 ((INGREDIENT e.410 ) e.409 ) e.223  , <GET_IN (QTY ) e.409 >:e.436  , <GET_IN 
(QTY UNIT ) e.409 >:e.451  , <GET_IN (ITEM ) e.409 >:e.466  = '      ' (
(TR )           ((TD ) e.436 )           ((TD ) e.451 )           ((TD )
 e.466 )       )    ' ' <F820 e.223 > ;
 (e.409 ) e.223  = <F820 e.223 > ;
  = ;
}

* InputFormat: <F326 e.106 >
F326 {
 s.221 e.106  = s.221 <F326 e.106 > ;
  = ;
 ((RECIPE ) e.223 ) e.106  , <GET_IN (NAME ) e.223 >:e.263  , <GET_IN (NAME 
) e.223 >:e.298  , <GET_IN (DESCRIPTION ) e.223 >:e.323  = '  ' ((HTML )
     ((HEAD )       ((TITLE )         e.263       )     )     ((BODY )  
     ((H3 )         e.298       )       ((U )         e.323       )     
  <F326 e.223 >     )  ' ' ) <F326 e.106 > ;
 ((INGREDIENTS ) e.223 ) e.106  = '  ' ((H4 ) 'Ingredients' )   ((TABLE 
(BORDER IS '1' ))     ((TR (BGCOLOR IS '#308030' )) ((TH ) 'Qty' ) ((TH 
                       ) 'Units' ) ((TH ) 'Item' ))     <F820 e.223 >  ' '
 ) <F326 e.106 > ;
 ((INSTRUCTIONS ) e.223 ) e.106  = '  ' ((H4 ) 'Instructions' )   ((OL )
   <F1114 e.223 >  ' ' ) <F326 e.106 > ;
 ((STEP ) e.223 ) e.106  , <GET_IN ('.' ) e.223 >:e.865  =  ' ' ((LI ) e.865 
) <F326 e.106 > ;
 ((s.225 ) e.223 ) e.106  = <F326 e.106 > ;
}

* InputFormat: <F16 e.101 >
F16 {
 s.104 e.101  = s.104 <F16 e.101 > ;
  = ;
 ((RECIPE ) e.106 ) e.101  , <GET_IN (NAME ) e.106 >:e.146  , <GET_IN (NAME 
) e.106 >:e.181  , <GET_IN (DESCRIPTION ) e.106 >:e.206  = '  ' ((HTML )
     ((HEAD )       ((TITLE )         e.146       )     )     ((BODY )  
     ((H3 )         e.181       )       ((U )         e.206       )     
  <F326 e.106 >     )  ' ' ) <F16 e.101 > ;
 ((INGREDIENTS ) e.106 ) e.101  = '  ' ((H4 ) 'Ingredients' )   ((TABLE 
(BORDER IS '1' ))     ((TR (BGCOLOR IS '#308030' )) ((TH ) 'Qty' ) ((TH 
                       ) 'Units' ) ((TH ) 'Item' ))     <F820 e.106 >  ' '
 ) <F16 e.101 > ;
 ((INSTRUCTIONS ) e.106 ) e.101  = '  ' ((H4 ) 'Instructions' )   ((OL )
   <F1114 e.106 >  ' ' ) <F16 e.101 > ;
 ((STEP ) e.106 ) e.101  , <GET_IN ('.' ) e.106 >:e.1081  =  ' ' ((LI ) 
e.1081 ) <F16 e.101 > ;
 ((s.108 ) e.106 ) e.101  = <F16 e.101 > ;
}

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