*************************************************************************** * 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 TRINT4 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 <TRINT4 e.1 >> ; } * InputFormat: <TRINT4 e.1 > TRINT4 { s.41 e.1 = <F23 s.41 () (e.1 )> ; = 'z' (('..' )) ; } * InputFormat: <F371 s.97 (e.98 ) (e.100 ) > F371 { ' ' (e.98 s.101 ) (e.100 ) , <F371 s.101 (e.98 ) (' ' e.100 )>:e.142 s.143 (e.144 ) = e.142 s.143 (e.144 ) ; ' ' () (e.100 ) = '.' (e.100 ' ' ) ; '1' (e.98 ) ( e.100 ) = '.' e.98 '1' (e.100 ' ' ) ; '1' (e.98 ) () = '.' e.98 '1' () ; '.' (e.98 ) ( e.100 ) = '.' e.98 '.' (e.100 ' ' ) ; '.' (e.98 ) () = '.' e.98 '.' () ; } * InputFormat: <F202 e.45 (e.47 ) > F202 { e.45 ' ' (e.47 ) , <F202 e.45 (' ' e.47 )>:e.139 s.140 (e.141 ) = e.139 s.140 (e.141 ) ; e.45 '1' (e.47 ) = '.' e.45 '1' (e.47 ) ; e.45 '.' (e.47 ) = '.' e.45 '.' (e.47 ) ; (e.47 ) = '.' (e.47 ) ; } * InputFormat: <F72 e.45 (e.47 ) > F72 { e.45 ' ' (e.47 ) = <F72 e.45 (' ' e.47 )> ; e.45 '1' (e.47 ) = <F44 e.45 '11' (e.47 )> ; e.45 '.' (e.47 ) = <F44 e.45 '.1' (e.47 )> ; (e.47 ) = <F44 '1' (e.47 )> ; } * InputFormat: <F44 e.45 (e.47 ) > F44 { e.45 (' ' e.47 ) = <F44 e.45 ' ' (e.47 )> ; e.45 ('1' e.47 ) = <F72 e.45 (e.47 )> ; e.45 ('.' e.47 ) , <F202 e.45 (e.47 )>:e.92 s.93 (e.94 ) = 'z' ((e.92 ) s.93 '. ' e.94 '.' ) ; e.45 s.95 () , <F371 s.95 (e.45 ) ()>:e.120 s.121 (e.122 ) = 'z' ((e.120 ) s.121 '.' e.122 ' ' ) ; () = 'z' (() '.. ' ) ; } * InputFormat: <F23 s.44 (e.45 ) (e.47 ) > F23 { '1' (e.45 ) (s.48 e.47 ) = <F23 s.48 (e.45 '1' ) (e.47 )> ; '1' (e.45 ) () = 'z' (('.' e.45 '1.' )) ; ' ' (e.45 ) (e.47 ) = <F44 e.45 (e.47 )> ; '.' (e.45 ) (e.47 ) = 'z' (('.' e.45 '.' ) e.47 '.' ) ; } ****************************** The End ************************************