*************************************************************************** * 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 e.1 >> ; } * InputFormat: <ADDS2 e.1 > ADDS2 { (e.41 ) e.1 = <F22 e.1 0 (e.41 )> ; } * InputFormat: <F22 e.53 s.54 (e.55 ) > F22 { e.53 s.57 s.54 (e.55 s.56 ) , <ADD (s.56 ) s.57 >:s.58 , <ADD (s.58 ) s.54 >:s.59 , <DIVMOD (s.59 ) 10 >:(s.62 ) s.63 = <F22 e.53 s.62 (e.55 )> s.63 ; 0 () = ; e.53 s.54 () = <F22 e.53 0 (s.54 )> ; s.54 (e.55 ) = <F22 s.54 0 (e.55 )> ; } ****************************** The End ************************************