*************************************************************************** * 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 PERM2 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 <PERM2 e.1 >> ; } * InputFormat: <PERM2 e.1 > PERM2 { e.1 = <F7 e.1 > ; } * InputFormat: <F7 e.1 > F7 { '1' e.1 = '2' <F7 e.1 > ; '2' e.1 = '3' <F7 e.1 > ; '3' e.1 = '1' <F7 e.1 > ; '4' e.1 = '5' <F7 e.1 > ; '5' e.1 = '4' <F7 e.1 > ; 0 e.1 = 1 <F7 e.1 > ; 1 e.1 = 0 <F7 e.1 > ; s.41 e.1 = s.41 <F7 e.1 > ; = ; } ****************************** The End ************************************