***************************************************************************
* This file was created at Tue Dec 28 10:17:56 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: <F238 e.166 >
F238 {
 ((V e.196 ) e.195 ) e.166  , <GET_IN (SYMB ) e.195 >:e.204  , <GET_IN (
NEXT ) e.195 >:e.215  = ((PRE ) e.204 ' e.1 = <' e.215    'e.1>;' ) <F238 
e.166 > ;
 (e.195 ) e.166  = <F238 e.166 > ;
  = ;
}

* InputFormat: <F170 e.106 >
F170 {
 ((TOP e.167 ) e.166 ) e.106  , <GET_IN (NAME ) e.166 >:e.175  , <GET_IN 
(EMPTY ) e.166 >:e.189  = ((PRE ) e.175 '  {  ' )  ((PRE )  '= ' e.189  
 ';' ) <F238 e.166 > ((PRE )   '} ' ) <F170 e.106 > ;
 (e.166 ) e.106  = <F170 e.106 > ;
  = ;
}

* InputFormat: <F16 e.101 >
F16 {
 s.104 e.101  = s.104 <F16 e.101 > ;
  = ;
 ((AUTOMAT ) e.106 ) e.101  = ((HTML ) ((BODY ) ((PRE ) '$ENTRY Go {' ) 
                                         ((PRE )  '= <Prout <A <Card >>>;'
                                           ) ((PRE )  '}' ) <F170 e.106 
>)) <F16 e.101 > ;
 ((s.108 ) e.106 ) e.101  = <F16 e.101 > ;
}

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