***************************************************************************
* 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 ADDS2 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 <ADDS2 s.1 s.2 s.3 s.4 >> ;
}

* InputFormat: <ADDS2 s.1 s.2 s.3 s.4 >
ADDS2 {
 s.1 s.2 s.3 s.4  , <ADD (s.2 ) s.4 >:s.41  , <ADD (s.41 ) 0 >:s.42  , <DIVMOD 
(s.42 ) 10 >:(s.45 ) s.46  , <ADD (s.1 ) s.3 >:s.47  , <ADD (s.47 ) s.45 
>:s.48  , <DIVMOD (s.48 ) 10 >:(s.51 ) s.52  = s.52 s.46 ;
}

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