*************************************************************************** * This file was created at Thu Jan 20 10:41: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 NEXT ; $ENTRY Go { = <Prout <DI1 >> ; } * InputFormat: <DI1 > DI1 { , <NEXT >:(s.103 ) e.101 = <F6 e.101 s.103 > ; } * InputFormat: <F17 e.101 > F17 { FALSE = (FALSE ) ; , <NEXT >:e.104 = <F17 e.104 > ; () e.101 = ; (PCDATA ) e.101 = <F17 e.101 > ; (s.106 ) e.101 = <F6 e.101 s.106 > <S1 e.101 s.106 > ; } * InputFormat: <F6 e.101 s.103 > F6 { e.101 S = <F17 e.101 > ; e.101 s.103 = (FALSE ) ; } * InputFormat: <S1 e.101 s.106 > S1 { e.101 S = <F17 e.101 > ; e.101 s.106 = (FALSE ) ; } ****************************** The End ************************************