***************************************************************************
* 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 COMP1 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 CARD ;
$ENTRY Go {
 = <Prout <COMP1 >> ;
}

* InputFormat: <COMP1 >
COMP1 {
 , <CARD >:e.41  , <F16 e.41 ()>:s.112 s.113 (e.114 )  = ' ' s.112 e.114 
s.113 ' ' ;
}

* InputFormat: <F148 s.87 (e.88 ) (e.90 ) >
F148 {
 '1' (e.88 s.91 ) (e.90 )  , <F148 s.91 (e.88 ) ('2' e.90 )>:s.122 (e.123 
)  = s.122 (e.123 ) ;
 '1' () (e.90 )  = '6' ('2' e.90 ) ;
 '2' (e.88 s.95 ) (e.90 )  , <F148 s.95 (e.88 ) ('1' e.90 )>:s.124 (e.125 
)  = s.124 (e.125 ) ;
 '2' () (e.90 )  = '6' ('1' e.90 ) ;
 ' ' (e.88 ) (e.90 )  =  (e.88 '6' e.90 ) ;
}

* InputFormat: <F59 s.60 (e.61 ) s.63 (e.64 ) >
F59 {
 '1' (e.61 s.65 ) s.63 (e.64 )  , <F59 s.65 (e.61 ) '2' (s.63 e.64 )>:s.118 
(e.119 )  = s.118 (e.119 ) ;
 '1' () s.63 (e.64 )  = '6' ('2' s.63 e.64 ) ;
 '2' (e.61 s.70 ) s.63 (e.64 )  , <F59 s.70 (e.61 ) '1' (s.63 e.64 )>:s.120 
(e.121 )  = s.120 (e.121 ) ;
 '2' () s.63 (e.64 )  = '6' ('1' s.63 e.64 ) ;
 ' ' (e.61 ) s.63 (e.64 )  =  (e.61 '6' s.63 e.64 ) ;
}

* InputFormat: <F16 e.44 (e.45 ) >
F16 {
 '1' e.44 (e.45 )  , <F16 e.44 (e.45 '1' )>:s.126 s.128 (e.127 )  = s.126 
s.128 (e.127 ) ;
 '2' e.44 (e.45 )  , <F16 e.44 (e.45 '2' )>:s.129 s.131 (e.130 )  = s.129 
s.131 (e.130 ) ;
 ' ' e.44 (e.45 s.58 )  , <F59 s.58 (e.45 ) '5' (e.44 )>:s.81 (e.82 )  =
 s.81 ' ' (e.82 ) ;
 ' ' e.44 ()  = '6 ' ('5' e.44 ) ;
 (e.45 s.85 )  , <F148 s.85 (e.45 ) ()>:s.104 (e.105 )  = s.104 '5' (e.105 
) ;
 ()  = '65' () ;
}

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