*************************************************************************** * Here is a residual program of the last supercompilation by the SCP4. * The residual program is in Refal5. * You have to change the parametrs of the call of DIV12 with data. * Please, be carefull: * a) the order of the parametrs can be incorrect; * b) the residual program cannot be supercompiled * without some transformation to a fragment of Refal5; *************************************************************************** $EXTERN MUL ,ADD ; $ENTRY Go { = <Prout <DIV12 e.1 >> ; } * InputFormat: <DIV12 e.1 > DIV12 { = 0 ; e.1 s.43 , <MUL (s.43 ) 1 >:s.44 , <ADD (0 ) s.44 >:s.45 = <O1 e.1 s.45 > ; } * InputFormat: <F11 e.1 s.50 > F11 { s.50 = s.50 ; e.1 s.53 s.50 , <MUL (s.53 ) 4 >:s.54 , <ADD (s.50 ) s.54 >:s.55 = <F11 e.1 s.55 > ; } * InputFormat: <O1 e.1 s.45 > O1 { s.45 = s.45 ; e.1 s.48 s.45 , <MUL (s.48 ) 10 >:s.49 , <ADD (s.45 ) s.49 >:s.50 = <F11 e.1 s.50 > ; } ****************************** The End ************************************