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