***************************************************************************
* 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 ADDS4 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 ADD ,DIVMOD ;
$ENTRY Go {
 = <Prout <ADDS4 e.1 >> ;
}

* InputFormat: <ADDS4 e.1 >
ADDS4 {
 e.1  , <F19 e.1 1 >:s.77 (e.78 )  = e.78 s.77 ;
}

* InputFormat: <F37 s.65 >
F37 {
 0  = ;
 s.65  , <ADD (s.65 ) 0 >:s.68  , <ADD (s.68 ) 0 >:s.69  , <DIVMOD (s.69 
) 10 >:(s.72 ) s.73  = <F37 s.72 > s.73 ;
}

* InputFormat: <F19 e.50 s.51 >
F19 {
 e.50 s.52 s.51  , <ADD (s.51 ) s.52 >:s.53  , <ADD (s.53 ) 0 >:s.54  , 
<DIVMOD (s.54 ) 10 >:(s.57 ) s.58  = s.58 (<S1 e.50 s.57 >) ;
 s.51  , <ADD (s.51 ) 0 >:s.61  , <ADD (s.61 ) 0 >:s.62  , <DIVMOD (s.62 
) 10 >:(s.65 ) s.66  = s.66 (<F37 s.65 >) ;
}

* InputFormat: <S1 e.50 s.57 >
S1 {
 0  = ;
 e.50 s.57  , <F19 e.50 s.57 >:s.83 (e.82 )  = e.82 s.83 ;
}

****************************** The End ************************************