***************************************************************************
* 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 TRINT1 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 <TRINT1 e.1 >> ;
}

* InputFormat: <TRINT1 e.1 >
TRINT1 {
 (e.41 ) s.42 e.1  , <F5 e.1 (e.41 ) s.42 >:e.57 s.59 (e.60 )  = 'z' ((e.57 
'6' ) s.59 e.60 ) ;
}

* InputFormat: <F41 s.56 (e.57 ) s.59 (e.60 ) >
F41 {
 '1' (e.57 s.61 ) s.59 (e.60 )  , <F41 s.61 (e.57 ) '2' (s.59 e.60 )>:e.78 
s.79 (e.80 )  = e.78 s.79 (e.80 ) ;
 '2' (e.57 s.66 ) s.59 (e.60 )  , <F41 s.66 (e.57 ) '1' (s.59 e.60 )>:e.81 
s.82 (e.83 )  = e.81 s.82 (e.83 ) ;
 ' ' (e.57 ) s.59 (e.60 )  = e.57 s.59 (e.60 ) ;
}

* InputFormat: <F5 e.1 (e.41 ) s.42 >
F5 {
 s.43 e.1 (e.41 ) '1'  , <F5 e.1 (e.41 '1' ) s.43 >:e.84 s.85 (e.86 )  =
 e.84 s.85 (e.86 ) ;
 s.47 e.1 (e.41 ) '2'  , <F5 e.1 (e.41 '2' ) s.47 >:e.87 s.88 (e.89 )  =
 e.87 s.88 (e.89 ) ;
 e.1 (e.41 s.54 ) ' '  , <F41 s.54 (e.41 ) '5' (e.1 )>:e.57 s.59 (e.60 )
  = e.57 s.59 (e.60 ) ;
}

****************************** The End ************************************