*************************************************************************** * 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 PERM4 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 <PERM4 s.A s.B (e.1 )>> ; } * InputFormat: <PERM4 s.1 s.2 (e.3 ) > PERM4 { s.1 s.2 (e.3 ) = <F7 s.1 s.2 (e.3 )> ; } * InputFormat: <F7 s.1 s.2 (e.3 ) > F7 { s.41 s.2 (s.41 e.3 ) = s.2 <F7 s.41 s.2 (e.3 )> ; s.1 s.41 (s.41 e.3 ) = s.1 <F7 s.1 s.41 (e.3 )> ; s.1 s.2 (s.41 e.3 ) = s.41 <F7 s.1 s.2 (e.3 )> ; s.1 s.2 () = ; } ****************************** The End ************************************