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