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