***************************************************************************
* 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 PERM1 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 <PERM1 e.1 >> ;
}

* InputFormat: <PERM1 e.1 >
PERM1 {
 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 > ;
 s.41 e.1  = s.41 <F7 e.1 > ;
  = ;
}

****************************** The End ************************************