********************************************************************
* This file was created at Tue May 08 09:05:57 2001
* Here is a residual program of the last supercompilation by the SCP4.
* A task from P2.mst was supercompiled.
* The residual program is in Refal5.
* You have to change the parametrs of the calls of P2 with data,
*          as well as to choose a call to run.
* Please, be carefull: 
*         a) the order of the parametrs can be incorrect;
*********************************************************************

/*
$ENTRY Go {
 = <Prout <P21 e.path >> ;
}
*/

* InputFormat: <P21 e.1 >
P21 {
 MC e.1  , <F35 e.1 >:e.114  = T (e.114 ) ;
 CC e.1  , <F190 e.1 >:e.127  = T (e.127 ) ;
}

* InputFormat: <F190 e.1 >
F190 {
 C MM M MC e.1  = e.1 ;
 C MM C CC e.1  = e.1 ;
 C M MC CC e.1  = <F190 e.1 > ;
}

* InputFormat: <F35 e.1 >
F35 {
 M MM M MC e.1  = e.1 ;
 M MM C CC e.1  = e.1 ;
 M C CC MC e.1  = <F35 e.1 > ;
}

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