*************************************************************************** * 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 DIV3 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 <DIV3 e.1 >> ; } * InputFormat: <DIV3 e.1 > DIV3 { e.1 = <F12 0 (e.1 )> ; } * InputFormat: <F12 s.52 (e.53 ) > F12 { s.52 () = s.52 ; s.52 (e.53 s.54 ) , <MUL (s.54 ) 1 >:s.55 , <ADD (s.52 ) s.55 >:s.56 = <F12 s.56 (e.53 )> ; } ****************************** The End ************************************