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