*************************************************************************** * 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 ************************************