/* chef.x - convert English on stdin to Mock Swedish on stdout

 * The WC definition matches any word character, and the NW definition matches
 * any non-word character.  Two start conditions are maintained: INW (in word)
 * and NIW (not in word).  The first rule passes TeX commands without change.
 *
 * HISTORY
 *
 * Apr 15, 1992; John Hagerman: Created.
 */
/*
 * Taken from the above and converted into lpc by Pinkfish.
 */

string *replace_matrix;

void    create()
{
    replace_matrix = ({ 
			   "the", "zee",
			   "The", "Zee",
			   "ir", "ur",
			   "ow", "oo",
			   "th", "t",
			   "au", "oo",
			   "Au", "Oo",
			   "u", "oo",
			   "U", "Oo",
			   "tion", "shun",
			   "an", "un",
			   "An", "Un",
			   "en ", "ee ",
			   "ew", "oo",
			   "a", "e*",
			   "A", "E*",
			   "e* ", "e ",
			   "E* ", "E ",
			   "e*", "e",
			   "E*", "E",
			   "e ", "e-a ",
			   "f", "ff",
			   " o", " oo",
			   " O", " Oo",
			   "v", "f",
			   "V", "F",
			   "w", "v",
			   "W", "V", });
}				/* create() */

string  do_transmute( string str )
{
    return replace( " " + str, replace_matrix )[ 1..10000 ];
}				/* do_transmute() */