***************************************************************************
* This file was created at Tue Jan 18 18:52:55 2000
* Here is a residual program of the last supercompilation by the SCP4.
* A task from DI.mst was supercompiled.
* The residual program is in Refal5.
* You have to change the parametrs of the calls of DI 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 ;
$ENTRY Go {
 = <Prout <DI1 >> ;
}

* InputFormat: <DI1 >
DI1 {
 , <XML_REF1 >:e.101  = <F8 e.101 > ;
}

* InputFormat: <F45 e.102 >
F45 {
 s.121 e.102  = <F45 e.102 > ;
 e.102  = <F19 e.102 > ;
}

* InputFormat: <F19 e.102 >
F19 {
  = ;
 ((s.110 ) e.108 ) e.102  = <F11 e.108 s.110 > <S1 e.102 s.110 > ;
 s.113 e.102  = <F45 e.102 > ;
}

* InputFormat: <F11 e.102 s.104 >
F11 {
 e.102 S  = <F19 e.102 > ;
 e.102 s.104  = (FALSE ) ;
}

* InputFormat: <F8 e.101 >
F8 {
 ((s.104 ) e.102 ) e.101  = <F11 e.102 s.104 > <F8 e.101 > ;
  = ;
}

* InputFormat: <S1 e.102 s.110 >
S1 {
 e.102 S  = <F19 e.102 > ;
 e.102 s.110  = (FALSE ) ;
}

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