*************************************************************************** * 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 TRINT2 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; *************************************************************************** $ENTRY Go { = <Prout <TRINT2 e.1 >> ; } * InputFormat: <TRINT2 e.1 > TRINT2 { (e.41 ) s.42 e.1 = <F5 e.1 (e.41 ) s.42 > ; } * InputFormat: <F102 s.74 (e.75 ) s.77 (e.78 ) > F102 { '3' (e.75 s.79 ) s.77 (e.78 ) = <F102 s.79 (e.75 ) '3' (s.77 e.78 )> ; '1' (e.75 s.84 ) s.77 (e.78 ) = <F102 s.84 (e.75 ) '1' (s.77 e.78 )> ; '2' (e.75 ) s.77 (e.78 ) = <F5 e.78 (e.75 '2' ) s.77 > ; } * InputFormat: <F25 s.45 s.46 (e.47 ) (e.49 ) > F25 { '1' s.46 (e.47 ) (s.50 e.49 ) = <F25 s.50 '1' (e.47 s.46 ) (e.49 )> ; '3' s.46 (e.47 ) (s.55 e.49 ) = <F25 s.55 '3' (e.47 s.46 ) (e.49 )> ; ' ' s.46 (e.47 ) (e.49 ) = <F102 s.46 (e.47 ) '3' (e.49 )> ; } * InputFormat: <F5 e.1 (e.41 ) s.42 > F5 { s.43 e.1 (e.41 ) '1' = <F25 s.43 '2' (e.41 ) (e.1 )> ; s.96 e.1 (e.41 ) '3' = <F5 e.1 (e.41 '2' ) s.96 > ; e.1 (e.41 ) ' ' = 'z' ((e.41 ' ' ) e.1 ) ; } ****************************** The End ************************************