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