***************************************************************************
* This file was created at Fri Apr 05 01:09:27 2002
* Here is a residual program of the last supercompilation by the SCP4.
* A task from ryba.mst was supercompiled.
* The residual program is in Refal5.
* You have to change the parametrs of the calls of ryba 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 <ryba1 s.11 s.12 s.13 s.14 s.15 s.21 s.22 s.23 s.24 s.25 s.31
s.32 s.33 s.34 s.35 s.41 s.42 s.43 s.44 s.45 s.51 s.52 s.53
s.54 s.55 >> ;
}
*/
* InputFormat: <ryba1 s.1 s.2 s.3 s.4 s.5 s.6 s.7 s.8 s.9 s.10 s.11 s.12 s.13
*s.14 s.15 s.16 s.17 s.18 s.19 s.20 s.21 s.22 s.23 s.24 s.25 >
ryba1 {
Norwegian Yellow Dunhill Cat Water
Dane Blue Marlboro Horse Tea
Englishman Red PallMall Bird Milk
German Green Rothmans Fish Coffee
Swede White Winfield Dog Beer = German ;
}
****************************** The End ************************************