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