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