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