Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 8/23/84; site ucbcad.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!genrad!decvax!ucbvax!ucbcad!faustus
From: faustus@ucbcad.UUCP (Wayne A. Christopher)
Newsgroups: net.sources.games
Subject: Source for insult, flame, babble (Part 1 of 3)
Message-ID: <232@ucbcad.UUCP>
Date: Sat, 11-May-85 03:22:53 EDT
Article-I.D.: ucbcad.232
Posted: Sat May 11 03:22:53 1985
Date-Received: Mon, 13-May-85 02:41:38 EDT
References: <399@ho95b.UUCP>
Organization: UC Berkeley CAD Group, Berkeley, CA
Lines: 791

I am posting the source for a few programs I wrote some time
ago to generate random insults, flames, and sentences. They
are written using a pre-processor called "kafka", which is
also included. To create them collect all the parts of this
posting, pipe them to sh, then run "make".

	Wayne

# The rest of this file is a shell script which will extract:
# READ.ME Makefile babble.k flame.k insult.k defs.h graph.h kafgraf.h dstrans.c etc.c funwords.c init.c main.c maketext.c output.c psubr.c stuff.c parse.y lexical.l
echo x - READ.ME
cat >READ.ME <<'!Funky!Stuff!'

RCS Info: $Revision: $ on $Date: $
          $Source: $
Copyright (c) 1985 Wayne A. Christopher 
	Permission is granted to do anything with this READ.ME file
	except sell it or remove this message.

Contained herein is the source for kafka, which is a program that
translates BNF grammers into C programs to generate strings in the
grammer, and files for three useful kafka programs, insult, flame,
and babble. I don't have a manual page for kafka because I have
been too lazy to write one, but if you read the .k files you will
probably be able to figure out how things work. Any improvements
anybody can make on these programs I'd be happy to hear about. The
usual disclaimer: any opinions stated in the following code, or
statements produced by the included programs, have nothing to do
with U. C. Berkeley or anybody, including me...

!Funky!Stuff!
echo x - Makefile
cat >Makefile <<'!Funky!Stuff!'

# RCS Info: $Revision: $ on $Date: $
#           $Source: $
# Copyright (c) 1985 Wayne A. Christopher 
#	Permission is granted to do anything with this code except sell it
#	or remove this message.
#
# The makefile for everything.

CFILES = dstrans.c etc.c funwords.c init.c main.c \
	maketext.c output.c psubr.c stuff.c

KFILES = babble.k flame.k insult.k

HFILES = defs.h graph.h kafgraf.h

OFILES = dstrans.o init.o main.o psubr.o stuff.o \
	lex.yy.o y.tab.o

RUNOFILES = etc.o maketext.o output.o

all: kafka insult babble flame

kafka: $(OFILES)
	cc -o kafka $(OFILES)

insult: insult.k $(RUNOFILES)
	./kafka insult.k
	cc -c kaf.spec.c kaf.text.c
	cc -o insult $(RUNOFILES) kaf.spec.o kaf.text.o

babble: babble.k $(RUNOFILES)
	./kafka babble.k
	cc -c kaf.spec.c kaf.text.c
	cc -o babble $(RUNOFILES) kaf.spec.o kaf.text.o

flame:	flame.k $(RUNOFILES)
	./kafka flame.k
	cc -c kaf.spec.c kaf.text.c
	cc -o flame $(RUNOFILES) kaf.spec.o kaf.text.o

lex.yy.c: lexical.l y.tab.h
	lex lexical.l
	egrep -v '^# define (input|unput)' < lex.yy.c > ltmp
	mv ltmp lex.yy.c

y.tab.c y.tab.h: parse.y
	yacc -d parse.y

!Funky!Stuff!
echo x - babble.k
cat >babble.k <<'!Funky!Stuff!'

# RCS Info: $Revision: $ on $Date: $
#           $Source: $
# Copyright (c) 1985 Wayne A. Christopher 
#	Permission is granted to do anything with this code except sell it
#	or remove this message.
#
# The following program is written in 'kafka', a sort of BNF with imbedded
# C code that directs the selection of rules. (CH(x,y) is a macro that
# means basically "accept this rule x out of y times".) Otherwise rules
# are checked from top to bottom.  The program that takes this specification
# and turns it into a C program (which then spits out strings) can be found
# in ~/bin/kafka, and the source and other useful things can be found in
# ~/kafka. (Some on ernie, in ~faustus/kafka.)
# The program should be pretty self-explanatory, though -- it is
# supposed to look a bit like lex and yacc specifications...
# By the way, rules are written <non-terminal> = stuff { C code } ;
# where the stuff can be any mix of non-termnals (surrounded by <>) and
# terminals. The C code should return (1) if the rule is to be used and 0
# if not. If there is no stuff, the C code can return a pointer to a string
# that is taken to be a terminal, but I'm not using this because it isn't
# very neat and is only useful when you are doing non-context free stuff...

%{

#define CH(n, o)	return ((((random() - 1313513) % o) < n) ? 1 : 0)
/* I think there used to be a reason for doing ^^^ this... */

%}

%%

<start>		= <unit> 				;

<unit>		= <s> "." 				{ CH(3, 4); } ;
<unit>		= <rnd> 				;

# We have to be explicit about what kind of nouns go with what verbs.

<s>		= <s> , <Conj> <s> 			{ CH(1, 25); } ;

# verb1 is sort of simple physical stuff (transitive), non-intentional.
<s>		= <thing> <verb1> <thing> 		{ CH(1, 20); } ;

<verb1>		= "fell	on"				{ CH(1, 20); } ;
<verb1>		= was <in-rel-to>			{ CH(1, 20); } ;
<verb1>		= hit					{ CH(1, 20); } ;
<verb1>		= "was in fact"				{ CH(1, 20); } ;
<verb1>		= "was almost as" <adj1> as		{ CH(1, 20); } ;
<verb1>		= "was as" <adj1> as			{ CH(1, 20); } ;
<verb1>		= "was more" <adj1> than		{ CH(1, 20); } ;
<verb1>		= "may have been" <in-rel-to>		{ CH(1, 20); } ;
<verb1>		= "looked like"				{ CH(1, 20); } ;
<verb1>		= reminded <agent> of			{ CH(1, 20); } ;
<verb1>		= "seemed to be"			{ CH(1, 20); } ;
<verb1>		= <verb1>				;

# verb2 is intransitive sorts of things, and complex transitive verbs.
<s>		= <agent> <verb2> 			{ CH(1, 20); } ;

<verb2>		= said "'" <s> "'"			{ CH(1, 20); } ;
<verb2>		= "said that" <s>			{ CH(1, 20); } ;
<verb2>		= ran					{ CH(1, 20); } ;
<verb2>		= died					{ CH(1, 20); } ;
<verb2>		= exploded				{ CH(1, 20); } ;
<verb2>		= ate					{ CH(1, 20); } ;
<verb2>		= became <adj1>				{ CH(1, 20); } ;
<verb2>		= was <adj1>				{ CH(1, 8); } ;
<verb2>		= seemed <adj1>				{ CH(1, 10); } ;
<verb2>		= jumped				{ CH(1, 20); } ;
<verb2>		= walked				{ CH(1, 20); } ;
<verb2>		= fell					{ CH(1, 20); } ;
<verb2>		= disappeared				{ CH(1, 20); } ;
<verb2>		= "hopped around"			{ CH(1, 20); } ;
<verb2>		= flew					{ CH(1, 20); } ;
<verb2>		= used <thing> "as a" <Inan-obj>	{ CH(1, 20); } ;
<verb2>		= gave <thing> to <agent>		{ CH(1, 20); } ;
<verb2>		= "bit the dust"			{ CH(1, 20); } ;
<verb2>		= <verb2>				;

# verb3 is transitive intentional things.
<s>		= <agent> <adv> <verb3> <thing>		{ CH(1, 5); } ;

<verb3>		= hit					{ CH(1, 20); } ;
<verb3>		= used					{ CH(1, 20); } ;
<verb3>		= "acted like"				{ CH(1, 20); } ;
<verb3>		= "thought he was"			{ CH(1, 20); } ;
<verb3>		= "looked like"				{ CH(1, 20); } ;
<verb3>		= ate					{ CH(1, 20); } ;
<verb3>		= "threw out"				{ CH(1, 20); } ;
<verb3>		= "looked at"				{ CH(1, 20); } ;
<verb3>		= disliked				{ CH(1, 20); } ;
<verb3>		= "cooked and ate"			{ CH(1, 20); } ;
<verb3>		= destroyed				{ CH(1, 20); } ;
<verb3>		= lifted				{ CH(1, 20); } ;
<verb3>		= stole					{ CH(1, 20); } ;
<verb3>		= dropped				{ CH(1, 20); } ;
<verb3>		= bought				{ CH(1, 20); } ;
<verb3>		= "heard about"				{ CH(1, 20); } ;
<verb3>		= considered				{ CH(1, 20); } ;
<verb3>		= "interacted with"			{ CH(1, 20); } ;
<verb3>		= painted				{ CH(1, 20); } ;
<verb3>		= <verb3>				;

# verb4 is agent-agent stuff.
<s>		= <agent> <verb4> <agent> 		{ CH(1, 20); } ;

<verb4>		= hated					{ CH(1, 20); } ;
<verb4>		= killed				{ CH(1, 20); } ;
<verb4>		= loved					{ CH(1, 20); } ;
<verb4>		= "disagreed with"			{ CH(1, 20); } ;
<verb4>		= imitated				{ CH(1, 20); } ;
<verb4>		= "talked to"				{ CH(1, 20); } ;
<verb4>		= <verb4>				;

# verb5 is agent-intangible stuff. (I don't know about this...)
<s>		= <agent> <verb5> <intang-obj>		{ CH(1, 20); } ;

<verb5>		= felt					{ CH(1, 20); } ;
<verb5>		= enjoyed				{ CH(1, 20); } ;
<verb5>		= <verb5>				;

# Now for some more things -- intentional statements, (some of these
# may turn out to be ungrammatical, for instance by not using the subjunctive
# mode)...

<s>		= <agent> <int-verb> <s>		{ CH(1, 20); } ;

<int-verb>	= "desired that"			{ CH(1, 20); } ;
<int-verb>	= "believed that"			{ CH(1, 20); } ;
<int-verb>	= "hoped that"				{ CH(1, 20); } ;
<int-verb>	= "thought that"			{ CH(1, 20); } ;
<int-verb>	= "wished that"				{ CH(1, 20); } ;
<int-verb>	= "feared that"				{ CH(1, 20); } ;
<int-verb>	= "wondered whether"			{ CH(1, 20); } ;
<int-verb>	= "was worried that"			{ CH(1, 20); } ;
<int-verb>	= "figured that"			{ CH(1, 20); } ;
<int-verb>	= "predicted that"			{ CH(1, 20); } ;
<int-verb>	= "was ashamed that"			{ CH(1, 20); } ;
<int-verb>	= <int-verb>				;

<s>		= <s>					;

<adv>		= ""					{ CH(4, 5); } ;
<adv>		= <Adv>					;

<in-rel-to>	= <prep>				{ CH(1, 4); } ;
<in-rel-to>	= "similar to"				{ CH(1, 20); } ;
<in-rel-to>	= "in contact with"			{ CH(1, 20); } ;
<in-rel-to>	= "not at all like"			{ CH(1, 20); } ;
<in-rel-to>	= "reminicent of"			{ CH(1, 20); } ;
<in-rel-to>	= "a part of"				{ CH(1, 20); } ;
<in-rel-to>	= "exactly like"			{ CH(1, 20); } ;
<in-rel-to>	= <in-rel-to>				;


# == NOUNS ==
# Here are the noun things -- there are agents, inanimate objects, and
# intangible objects (like concepts). Ignore pronouns for now.
# Intangible things don't have determiners, and don't have "tangible"
# adjectives attatched to them.

<thing>		= <agent>				{ CH(1, 2); } ;
<thing>		= <inan-obj>				;

<agent>		= <agent1> 				;

<agent1>	= <name-p> 				{ CH(1, 3); } ;
<agent1>	= <Det> <agent-adj> <Agent> 		;

<inan-obj>	= <A-Det> <thing-adj> <Inan-obj> 	;

<intang-obj>	= <intang-adj> <Intang-obj>		;

<name-p>	= <Name> 				;

<prep>		= "along with"   			{ CH(1, 10); } ;
<prep>		= "on top of"  				{ CH(1, 10); } ;
<prep>		= "next to"   				{ CH(1, 10); } ;
<prep>		= near   				{ CH(1, 10); } ;
<prep>		= like   				{ CH(1, 10); } ;
<prep>		= "apart from"   			{ CH(1, 10); } ;
<prep>		= "in addition to"			{ CH(1, 10); } ;
<prep>		= <prep>				;

# == ADJECTIVES == 
# Intangible adjectives -- good, bad, etc. Tangible adjectives -- red, cold,
# etc. Agent agectives -- mean, selfish, etc. Agents can have any one, things
# can have tangible and intangible, but intangibles can have only intangibles.

<intang-adj>	= ""					{ CH(4, 5); } ;
<intang-adj>	= <Intang-adj> <intang-adj>		;

<agent-adj>	= ""					{ CH(4, 5); } ;
<agent-adj>	= <adj1> <agent-adj>			;

<thing-adj>	= ""					{ CH(4, 5); } ;
<thing-adj>	= <adj2> <thing-adj> 			;

<adj1>		= <Intang-adj>				{ CH(1, 3); } ;
<adj1>		= <Agent-adj>				{ CH(1, 3); } ;
<adj1>		= <Tang-adj>				;

<adj2>		= <Intang-adj>				{ CH(1, 2); } ;
<adj2>		= <Tang-adj>				;

# Some generic words.

<Conj>		= but 					{ CH(1, 20); } ;
<Conj>		= and 					{ CH(1, 20); } ;
<Conj>		= or 					{ CH(1, 20); } ;
<Conj>		= so 					{ CH(1, 20); } ;
<Conj>		= however 				{ CH(1, 20); } ;
<Conj>		= nevertheless 				{ CH(1, 20); } ;
<Conj>		= therefore 				{ CH(1, 20); } ;
<Conj>		= <Conj> 				;

# P-Det is a posession determiner -- can't be used with an agent.

<A-Det>		= <Det>					{ CH(1, 2); } ;
<A-Det>		= <P-Det>				;

<Det>		= a 					{ CH(1, 10); } ;
<Det>		= the 					{ CH(1, 7); } ;
<Det>		= that 					{ CH(1, 15); } ;
<Det>		= "some kind of" 			{ CH(1, 20); } ;	
<Det>		= this 					{ CH(1, 15); } ;
<Det>		= some	 				{ CH(1, 20); } ;
<Det>		= <Det> 				;

<P-Det>		= my 					{ CH(1, 20); } ;
<P-Det>		= your 					{ CH(1, 20); } ;
# The # mark here ---------v means don't put a space in between...
<P-Det>		= <agent1> "#'s"			{ CH(1, 20); } ;
<P-Det>		= his 					{ CH(1, 20); } ;
<P-Det>		= her 					{ CH(1, 20); } ;
<P-Det>		= their 				{ CH(1, 20); } ;
<P-Det>		= <P-Det> 				;

<Agent>		= person				{ CH(1, 20); } ;
<Agent>		= dog 					{ CH(1, 20); } ;
<Agent>		= cat 					{ CH(1, 20); } ;
<Agent>		= duck 					{ CH(1, 20); } ;
<Agent>		= sheriff				{ CH(1, 20); } ;
<Agent>		= professor				{ CH(1, 20); } ;
<Agent>		= student				{ CH(1, 20); } ;
<Agent>		= "CS grad student"			{ CH(1, 20); } ;
<Agent>		= "disk jockey"				{ CH(1, 20); } ;
<Agent>		= hacker				{ CH(1, 20); } ;
<Agent>		= horse					{ CH(1, 20); } ;
<Agent>		= pig					{ CH(1, 20); } ;
<Agent>		= dude					{ CH(1, 20); } ;
<Agent>		= communist				{ CH(1, 20); } ;
<Agent>		= goose					{ CH(1, 20); } ;
<Agent>		= scumbag				{ CH(1, 20); } ;
<Agent>		= "scuba diver"				{ CH(1, 20); } ;
<Agent>		= "disembodied spirit"			{ CH(1, 20); } ;
<Agent>		= guy					{ CH(1, 20); } ;
<Agent>		= Australian				{ CH(1, 20); } ;
<Agent>		= aardvark				{ CH(1, 20); } ;
<Agent>		= "space alien"				{ CH(1, 20); } ;
<Agent>		= <Agent>				;

<Inan-obj>	= house 				{ CH(1, 20); } ;
<Inan-obj>	= fruit 				{ CH(1, 20); } ;
<Inan-obj>	= slime-mold 				{ CH(1, 20); } ;
<Inan-obj>	= "lisp manual" 			{ CH(1, 20); } ;
<Inan-obj>	= rock	 				{ CH(1, 20); } ;
<Inan-obj>	= terminal 				{ CH(1, 20); } ;
<Inan-obj>	= textbook 				{ CH(1, 20); } ;
<Inan-obj>	= pen	 				{ CH(1, 20); } ;
<Inan-obj>	= box 					{ CH(1, 20); } ;
<Inan-obj>	= steak 				{ CH(1, 20); } ;
<Inan-obj>	= vax	 				{ CH(1, 20); } ;
<Inan-obj>	= "salad fork" 				{ CH(1, 20); } ;
<Inan-obj>	= thingamajig 				{ CH(1, 20); } ;
<Inan-obj>	= doorknob 				{ CH(1, 20); } ;
<Inan-obj>	= axe	 				{ CH(1, 20); } ;
<Inan-obj>	= "357 magnum" 				{ CH(1, 20); } ;
<Inan-obj>	= adm3a 				{ CH(1, 20); } ;
<Inan-obj>	= saxaphone 				{ CH(1, 20); } ;
<Inan-obj>	= pineapple 				{ CH(1, 20); } ;
<Inan-obj>	= keyboard 				{ CH(1, 20); } ;
<Inan-obj>	= "baked potato"			{ CH(1, 20); } ;
<Inan-obj>	= "carpet tack"				{ CH(1, 20); } ;
<Inan-obj>	= "bottle of bee"			{ CH(1, 20); } ;
<Inan-obj>	= coathanger 				{ CH(1, 20); } ;
<Inan-obj>	= "bayobab tree"			{ CH(1, 20); } ;
<Inan-obj>	= <Inan-obj>				;

# These are all mental conditions.

<Intang-obj>	= fear					{ CH(1, 20); } ;
<Intang-obj>	= loathing				{ CH(1, 20); } ;
<Intang-obj>	= sympathy				{ CH(1, 20); } ;
<Intang-obj>	= hope					{ CH(1, 20); } ;
<Intang-obj>	= disgust				{ CH(1, 20); } ;
<Intang-obj>	= envy					{ CH(1, 20); } ;
<Intang-obj>	= distaste				{ CH(1, 20); } ;
<Intang-obj>	= excitement				{ CH(1, 20); } ;
<Intang-obj>	= <Intang-obj>				;

<Name>		= "Generic Joe" 			{ CH(1, 20); } ;
<Name>		= John 					{ CH(1, 20); } ;
<Name>		= Mary 					{ CH(1, 20); } ;
<Name>		= "Ronald Reagan" 			{ CH(1, 20); } ;
<Name>		= "Fritz Mondale" 			{ CH(1, 20); } ;
<Name>		= "Marvin Minsky" 			{ CH(1, 20); } ;
<Name>		= "Howard the Duck" 			{ CH(1, 20); } ;
<Name>		= "Doug Cooper" 			{ CH(1, 20); } ;
<Name>		= Chris 				{ CH(1, 20); } ;
<Name>		= Batman 				{ CH(1, 20); } ;
<Name>		= "Wyatt Earp" 				{ CH(1, 20); } ;
<Name>		= "Richard Nixon" 			{ CH(1, 20); } ;
<Name>		= "The Spanish Inquisition"		{ CH(1, 20); } ;
<Name>		= <Name> 				;

<Intang-adj>	= lousy 				{ CH(1, 20); } ;
<Intang-adj>	= undesirable 				{ CH(1, 20); } ;
<Intang-adj>	= bad	 				{ CH(1, 20); } ;
<Intang-adj>	= strange 				{ CH(1, 20); } ;
<Intang-adj>	= unexpected 				{ CH(1, 20); } ;
<Intang-adj>	= fascinating 				{ CH(1, 20); } ;
<Intang-adj>	= useful 				{ CH(1, 20); } ;
<Intang-adj>	= appropriate 				{ CH(1, 20); } ;
<Intang-adj>	= nice 					{ CH(1, 20); } ;
<Intang-adj>	= incredible 				{ CH(1, 20); } ;
<Intang-adj>	= bizarre 				{ CH(1, 20); } ;
<Intang-adj>	= awful	 				{ CH(1, 20); } ;
<Intang-adj>	= unnatural 				{ CH(1, 20); } ;
<Intang-adj>	= "out of place"			{ CH(1, 20); } ;
<Intang-adj>	= terrible 				{ CH(1, 20); } ;
<Intang-adj>	= <Intang-adj>				;

<Tang-adj>	= red 					{ CH(1, 20); } ;
<Tang-adj>	= green					{ CH(1, 20); } ;
<Tang-adj>	= big 					{ CH(1, 20); } ;
<Tang-adj>	= hot 					{ CH(1, 20); } ;
<Tang-adj>	= heavy					{ CH(1, 20); } ;
<Tang-adj>	= fast 					{ CH(1, 20); } ;
<Tang-adj>	= slow 					{ CH(1, 20); } ;
<Tang-adj>	= huge 					{ CH(1, 20); } ;
<Tang-adj>	= lumpy					{ CH(1, 20); } ;
<Tang-adj>	= <Agent> "#-like" 			{ CH(1, 20); } ;
<Tang-adj>	= <Inan-obj> "#-like" 			{ CH(1, 20); } ;
<Tang-adj>	= shabby 				{ CH(1, 20); } ;
<Tang-adj>	= <Tang-adj>				;

<Agent-adj>	= benevolent				{ CH(1, 20); } ;
<Agent-adj>	= nasty					{ CH(1, 20); } ;
<Agent-adj>	= misanthropic				{ CH(1, 20); } ;
<Agent-adj>	= conceited				{ CH(1, 20); } ;
<Agent-adj>	= arrogant				{ CH(1, 20); } ;
<Agent-adj>	= misguided				{ CH(1, 20); } ;
<Agent-adj>	= nervous				{ CH(1, 20); } ;
<Agent-adj>	= clever				{ CH(1, 20); } ;
<Agent-adj>	= stupid				{ CH(1, 20); } ;
<Agent-adj>	= <Agent-adj>				;

<Adv>		= quickly 				{ CH(1, 20); } ;
<Adv>		= badly 				{ CH(1, 20); } ;
<Adv>		= slowly 				{ CH(1, 20); } ;
<Adv>		= stupidly 				{ CH(1, 20); } ;
<Adv>		= selfishly 				{ CH(1, 20); } ;
<Adv>		= properly				{ CH(1, 20); } ;
<Adv>		= <Adv> 				;

<spunct>	= "."					;

# Now, just for the heck of it, some random things...

<rnd>		= "what a" <Inan-obj> "!"		{ CH(1, 20); } ;
<rnd>		= "oh no, it's" <thing>	"!"		{ CH(1, 20); } ;
<rnd>		= "NOBODY expects" <thing> "!"		{ CH(1, 20); } ;
<rnd>		= "look at" <thing> "!"			{ CH(1, 20); } ;
<rnd>		= gosh!					{ CH(1, 20); } ;
<rnd>		= yeah, <s> .				{ CH(1, 10); } ;
<rnd>		= "wouldn't ya know, " <s> "!"		{ CH(1, 20); } ;
<rnd>		= "well, shiver me timbers!"		{ CH(1, 20); } ;
<rnd>		= "lemme tell ya -" <s> "!"		{ CH(1, 20); } ;
<rnd>		= "why, you" <Inan-obj> "!"		{ CH(1, 20); } ;
<rnd>		= "look at me when I'm talking to you!"	{ CH(1, 20); } ;
<rnd>		= <thing> ... uh...			{ CH(1, 10); } ;
<rnd>		= uh...					{ CH(1, 20); } ;
<rnd>		= "hic! (excuse me...)"			{ CH(1, 20); } ;
<rnd>		= "you know," <s> .			{ CH(1, 20); } ;
<rnd>		= <agent> "said that" <s> . 		{ CH(1, 5); } ;
<rnd>		= <rnd>				;

%%

!Funky!Stuff!
echo x - flame.k
cat >flame.k <<'!Funky!Stuff!'
%{

/* RCS Info: $Revision: $ on $Date: $
 *           $Source: $
 * Copyright (c) 1985 Wayne A. Christopher 
 *	Permission is granted to do anything with this code except sell it
 *	or remove this message.
 */

#define CH(n, o)	return ((((random() - 1313513) % o) < n) ? 1 : 0)

char *ones;

#define YOUR	ones = "your"
#define MY	ones = "my"
#define HIS	ones = "his"

%}

%%

#  flame

<start>	=	<flame>;

<flame> =	"how can you say that " <statement> "?" { CH(1,100); } ;
<flame>	=	"I can't believe how " <adjective> " you are." { CH(1,100); } ;
<flame>	=	"only a " <der-term> " like you would say that " <statement> "." { CH(1,70); } ;
<flame>	=	<statement> ", huh?" { CH(1,80); } ;
<flame>	=	so, <statement> "?" { CH(1,80); } ;
<flame>	=	<statement> ", right?" { CH(1,80); } ;
<flame>	=	"I mean," <flame> { CH(1,80); } ;
<flame>	=	"don't you realize that" <statement> "?" { CH(1,80); } ;
<flame>	=	"I firmly believe that" <statement> "." { CH(1,80); } ;
<flame>	=	"let me tell you something, you " <der-term> "." { CH(1,80); } ;
<flame>	=	"furthermore, you " <der-term> ", " <flame> { CH(1,70); } ;
<flame>	=	"I couldn't care less about your " <thing> "." { CH(1,100); } ;
<flame>	=	"how can you be so " <adjective> "?" { CH(1,100); } ;
<flame>	=	"you make me sick." { CH(1,100); } ;
<flame>	=	"it's well known that" <statement> "."{ CH(1,70); } ;
<flame>	=	<statement> "."{ CH(1,70); } ;
<flame>	=	"it takes a" <group-adj> <der-term> "like you to say that" <statement> "." { CH(1,60); } ;
<flame>	=	"I don't want to hear about your" <thing> "." { CH(1,100); } ;
<flame>	=	"you're always totally wrong." { CH(1,100); } ;
<flame>	=	"I've never heard anything as ridiculous as the idea that " <statement> "." { CH(1,90); } ;
<flame>	=	"you must be a real" <der-term> "to think that" <statement> "." { CH(1,100); } ;
<flame>	=	you <adjective> <group-adj> <der-term> "!" { CH(1,70); } ;
<flame>	=	"you're probably" <group-adj> "yourself." { CH(1,80); } ;
<flame>	=	"you sound like a real" <der-term> "." { CH(1,100); } ;
<flame>	=	why, <statement> "!" { CH(1,100); } ;
<flame>	=	"I have many" <group-adj> "friends." { CH(1,100); } ;
<flame>	=	"save the" <thing> "#s!" { CH(1,80); } ;
<flame>	=	"no nukes!" { CH(1,100); } ;
<flame>	=	ban <thing> "#s!" { CH(1,100); } ;
<flame>	=	"mercy mercy puddin and pie!" { CH(1,100); } ;
<flame>	=	"I'll bet you think that" <thing> "#s are" <adjective> "." { CH(1,80); } ;
<flame>	=	"you know," <statement> "." { CH(1,100); } ;
<flame>	=	your <quality> "reminds me of a" <thing> "." { CH(1,80); } ;
<flame>	=	"you have the" <quality> "of a" <der-term> "." { CH(1,100); } ;
<flame>	=	<der-term> "!" { CH(1,100); } ;
<flame>	=	<adjective> <group-adj> <der-term> "!" { CH(1,80); } ;
<flame>	=	"you're a typical" <group-adj> "person, totally" <adjective> "." { CH(1,90); } ;
<flame>	=	"man, " <flame> { CH(1,100); } ;
<flame> =	<flame> ;

<quality> =	ignorance { CH(1, 100); } ;
<quality> =	stupidity { CH(1, 100); } ;
<quality> =	worthlessness { CH(1, 100); } ;
<quality> =	prejudice { CH(1, 90); } ;
<quality> =	"lack of intelligence" { CH(1, 100); } ;
<quality> =	complete <quality> { CH(1, 100); } ;
<quality> =	lousiness { CH(1, 90); } ;
<quality> =	"bad grammer" { CH(1, 70); } ;
<quality> =	"lousy spelling" { CH(1, 70); } ;
<quality> =	"lack of common decency" { CH(1, 70); } ;
<quality> =	ugliness { CH(1, 70); } ;
<quality> =	nastiness { CH(1, 70); } ;
<quality> =	pregnancy { CH(1, 70); } ;
<quality> =	<quality> ;

<adjective> =	ignorant { CH(1, 100); } ;
<adjective> =	pregnant { CH(1, 100); } ;
<adjective> =	egotistical { CH(1, 100); } ;
<adjective> =	sick { CH(1, 100); } ;
<adjective> =	perverted { CH(1, 70); } ;
<adjective> =	sadistic { CH(1, 100); } ;
<adjective> =	stupid { CH(1, 70); } ;
<adjective> =	unpleasant { CH(1, 100); } ;
<adjective> =	lousy { CH(1, 70); } ;
<adjective> =	abusive { CH(1, 70); } ;
<adjective> =	bad { CH(1, 70); } ;
<adjective> =	selfish { CH(1, 70); } ;
<adjective> =	improper { CH(1, 60); } ;
<adjective> =	nasty { CH(1, 60); } ;
<adjective> =	disgusting { CH(1, 60); } ;
<adjective> =	foul { CH(1, 60); } ;
<adjective> =	intolerable { CH(1, 60); } ;
<adjective> =	primitive { CH(1, 60); } ;
<adjective> =	depressing { CH(1, 60); } ;
<adjective> =	dumb { CH(1, 60); } ;
<adjective> =	phoney { CH(1, 60); } ;
<adjective> =	as <adjective> "as a" <thing> { CH(1, 60); } ;
<adjective> =	"hungry like a wolf" { CH(1, 60); } ;
<adjective> =	<adjective> ;

<der-term> =	<adjective> <der-term> { CH(1, 30); } ;
<der-term> =	sexist { CH(1, 100); } ;
<der-term> =	weakling { CH(1, 80); } ;
<der-term> =	coward { CH(1, 80); } ;
<der-term> =	beast { CH(1, 100); } ;
<der-term> =	racist { CH(1, 80); } ;
<der-term> =	fool { CH(1, 80); } ;
<der-term> =	jerk { CH(1, 80); } ;
<der-term> =	ignoramus { CH(1, 80); } ;
<der-term> =	idiot { CH(1, 60); } ;
<der-term> =	"macho stud" { CH(1, 60); } ;
<der-term> =	rat { CH(1, 60); } ;
<der-term> =	slimebag { CH(1, 60); } ;
<der-term> =	Neanderthal { CH(1, 60); } ;
<der-term> =	sadist { CH(1, 60); } ;
<der-term> =	drunk { CH(1, 60); } ;
<der-term> =	capitalist { CH(1, 50); } ;
<der-term> =	dogmatist { CH(1, 50); } ;
<der-term> =	sheep { CH(1, 50); } ;
<der-term> =	maniac { CH(1, 50); } ;
<der-term> =	"whimpering scumbucket" { CH(1, 50); } ;
<der-term> =	"pea brain" { CH(1, 50); } ;
<der-term> =	"Illuminati scum" { CH(1, 50); } ;
<der-term> =	"quiche - eater" { CH(1, 50); } ;
<der-term> =	"real man" { CH(1, 50); } ;
<der-term> =	goof { CH(1, 50); } ;
<der-term> =	incompetent { CH(1, 50); } ;
<der-term> =	lunkhead { CH(1, 50); } ;
<der-term> =	<der-term> ;

<thing>	=	<adjective> <thing> { CH(1,30); } ;
<thing>	=	computer { CH(1,100); } ;
<thing>	=	abortion { CH(1,100); } ;
<thing>	=	whale { CH(1,100); } ;
<thing>	=	operation { CH(1,100); } ;
<thing>	=	"sexist joke" { CH(1,100); } ;
<thing>	=	ten-incher { CH(1,100); } ;
<thing>	=	dog { CH(1,60); } ;
<thing>	=	VAX { CH(1,60); } ;
<thing>	=	"Unix license" { CH(1,60); } ;
<thing>	=	"astrological sign" { CH(1,100); } ;
<thing>	=	"mental problem" { CH(1,100); } ;
<thing>	=	"sexual fantasy" { CH(1,100); } ;
<thing>	=	"venereal disease" { CH(1,60); } ;
<thing>	=	"Jewish grandmother" { CH(1,100); } ;
<thing>	=	"royal ancestry" { CH(1,100); } ;
<thing>	=	"punk haircut" { CH(1,100); } ;
<thing>	=	surfboard { CH(1,60); } ;
<thing>	=	"system call" { CH(1,60); } ;
<thing>	=	tatoo { CH(1,100); } ;
<thing>	=	"wood-burning stove" { CH(1,60); } ;
<thing>	=	"graphics editor" { CH(1,100); } ;
<thing>	=	"right wing death squad" { CH(1,60); } ;
<thing>	=	disease { CH(1,60); } ;
<thing>	=	impotence { CH(1,60); } ;
<thing>	=	vegetable { CH(1,60); } ;
<thing>	=	religon { CH(1,60); } ;
<thing>	=	duckpond { CH(1,60); } ;
<thing>	=	"wheat germ" { CH(1,60); } ;
<thing>	=	"bug fix" { CH(1,60); } ;
<thing>	=	lawyer { CH(1,60); } ;
<thing>	=	copywrite { CH(1,60); } ;
<thing>	=	<thing> ;

<group-adj> =	gay { CH(1, 70); } ;
<group-adj> =	old { CH(1, 100); } ;
<group-adj> =	lesbian { CH(1, 100); } ;
<group-adj> =	young { CH(1, 100); } ;
<group-adj> =	black { CH(1, 70); } ;
<group-adj> =	Polish { CH(1, 70); } ;
<group-adj> =	<adjective> { CH(1, 100); } ;
<group-adj> =	white { CH(1, 70); } ;
<group-adj> =	"mentally retarded" { CH(1, 100); } ;
<group-adj> =	swinging { CH(1, 100); } ;
<group-adj> =	European { CH(1, 100); } ;
<group-adj> =	homosexual { CH(1, 70); } ;
<group-adj> =	dead { CH(1, 70); } ;
<group-adj> =	underpriveledged { CH(1, 100); } ;
<group-adj> =	religous { CH(1, 70); } ;
<group-adj> =	<thing> "#-loving" { CH(1, 100); } ;
<group-adj> =	feminist { CH(1, 70); } ;
<group-adj> =	foreign { CH(1, 100); } ;
<group-adj> =	intellectual { CH(1, 100); } ;
<group-adj> =	crazy { CH(1, 70); } ;
<group-adj> =	working { CH(1, 70); } ;
<group-adj> =	"musically inclined" { CH(1, 100); } ;
<group-adj> =	psychadelic { CH(1, 100); } ;
<group-adj> =	"disco-loving" { CH(1, 100); } ;
<group-adj> =	unborn { CH(1, 100); } ;
<group-adj> =	Asian { CH(1, 100); } ;
<group-adj> =	short { CH(1, 100); } ;
<group-adj> =	<adjective> { CH(1, 50); } ;
<group-adj> =	poor { CH(1, 100); } ;
<group-adj> =	rich { CH(1, 100); } ;
<group-adj> =	"funny-looking" { CH(1, 100); } ;
<group-adj> =	"Puerto Rican" { CH(1, 100); } ;
<group-adj> =	Mexican { CH(1, 100); } ;
<group-adj> =	Italian { CH(1, 100); } ;
<group-adj> =	communist { CH(1, 70); } ;
<group-adj> =	Iranian { CH(1, 100); } ;
<group-adj> =	<group-adj> ;

<statement> =	your <thing> "is great" { CH(1, 100); } ;
<statement> =	<thing> "#s are fun" { CH(1, 60); } ;
<statement> =	<person> "is a " <der-term> { CH(1, 60); } ;
<statement> =	<group-adj> "people are" <adjective> { CH(1, 60); } ;
<statement> =	every <group-adj> "person is a" <der-term> { CH(1, 60); } ;
<statement> =	most <group-adj> "people have" <thing> "#s" { CH(1, 60); } ;
<statement> =	all <group-adj> "dudes should get" <thing> "#s" { CH(1, 60); } ;
<statement> =	<person> "is" <group-adj> { CH(1, 60); } ;
<statement> =	"trees are" <adjective> { CH(1, 100); } ;
<statement> =	"if you've seen one" <thing> ", you've seen them all" { CH(1, 100); } ;
<statement> =	"you're" <group-adj> { CH(1, 100); } ;
<statement> =	"you have a" <thing> { CH(1, 60); } ;
<statement> =	my <thing> "is pretty good" { CH(1, 60); } ;
<statement> =	"the Martians are coming" { CH(1, 100); } ;
<statement> =	"the National Enquirer is always right" { CH(1, 100); } ;
<statement> =	<person> "was" <group-adj> { CH(1, 60); } ;
<statement> =	<person> "#'s ghost is living in your" <thing> { CH(1, 60); } ;
<statement> =	"Liz Taylor is fat" { CH(1, 100); } ;
<statement> =	"you had 90 AP units" { CH(1, 100); } ;
<statement> =	"I'm pregnant" { CH(1, 100); } ;
<statement> =	"you look like a" <thing> { CH(1, 60); } ;
<statement> =	"the plural of moose is mooses" { CH(1, 100); } ;
<statement> =	"the oceans are full of dirty fish" { CH(1, 100); } ;
<statement> =	"people are dying every day" { CH(1, 100); } ;
<statement> =	a <group-adj> "man ain't got nothin in the world these days" { CH(1, 60); } ;
<statement> =	"women are inherently superior to men" { CH(1, 100); } ;
<statement> =	"the system staff is fascist" { CH(1, 100); } ;
<statement> =	"there is life after death" { CH(1, 100); } ;
<statement> =	"the world is full of" <der-term> "#s" { CH(1, 100); } ;
<statement> =	"you remind me of" <person> { CH(1, 60); } ;
<statement> =	"technology is evil" { CH(1, 60); } ;
<statement> =	"every day ya gotta write the book" { CH(1, 100); } ;
<statement> =	<person> killed <person> { CH(1, 60); } ;
<statement> =	"the CIA killed" <person> { CH(1, 100); } ;
<statement> =	"the sexual revolution is over" { CH(1, 100); } ;
<statement> =	"disco sucks" { CH(1, 100); } ;
<statement> =	"Lassie was" <group-adj> { CH(1, 60); } ;
<statement> =	"the Hari Krishnas have really got it all together"  { CH(1, 100); } ;
<statement> =	"I was" <person> "in a previous life" { CH(1, 60); } ;
<statement> =	"breathing causes cancer" { CH(1, 100); } ;
<statement> =	"it's fun to be really" <adjective> { CH(1, 60); } ;
<statement> =	<quality> "is pretty fun" { CH(1, 50); } ;
<statement> =	"you're a" <der-term> { CH(1, 50); } ;
<statement> =	the <group-adj> "culture is fascinating" { CH(1, 50); } ;
<statement> =	"when ya gotta go, ya gotta go" { CH(1, 50); } ;
<statement> =	"girls just wanna have fun" { CH(1, 50); } ;
<statement> =	<person> is <adjective> { CH(1, 50); } ;
<statement> =	<person> "#'s" <quality> is <adjective> { CH(1, 50); } ;
<statement> =	"it's a wonderful day" { CH(1, 50); } ;
<statement> =	"everything is really a" <thing> { CH(1, 50); } ;
<statement> =	"there's a" <thing> in <person> "#'s brain" { CH(1, 50); } ;
<statement> =	<person> "is a cool dude" { CH(1, 50); } ;
<statement> =	"the more" <thing> "#s you have, the better" { CH(1, 60); } ;
<statement> =	"life is a" <thing> { CH(1, 60); } ;
<statement> =	"life is" <quality> { CH(1, 60); } ;
<statement> =	<person> is <adjective> { CH(1, 40); } ;
<statement> =	<group-adj> "people are all" <adjective> <der-term> "#s" { CH(1, 50); } ;
<statement> =	<statement> ", and" <statement> { CH(1, 50); } ;
<statement> =	<statement> ", but" <statement> { CH(1, 50); } ;
<statement> =	"I wish I had a" <thing> { CH(1, 50); } ;
<statement> =	"you should have a" <thing> { CH(1, 50); } ;
<statement> =	"you hope that" <statement> { CH(1, 50); } ;
<statement> =	<person> "is secretly" <group-adj> { CH(1, 50); } ;
<statement> =	"you wish you were" <group-adj> { CH(1, 40); } ;
<statement> =	"you wish you were a" <thing> { CH(1, 40); } ;
<statement> =	"I wish I were a" <thing> { CH(1, 40); } ;
<statement> =	"you think that" <statement> { CH(1, 40); } ;
<statement> =	<statement> ", because" <statement> { CH(1, 20); } ;
<statement> =	<group-adj> "people don't get married to" <group-adj> "people, because" <reason1> { CH(1, 5); } ;
<statement> =	<group-adj> "people are all" <adjective> because <reason1> { CH(1, 5); } ;
<statement> =	<group-adj> "people are" <adjective> ", and" <reason1> { CH(1, 40); } ;
<statement> =	<statement> ;

<person> =	Reagan { CH(1, 100); } ;
<person> =	"Old Man River" { CH(1, 100); } ;
<person> =	JFK { CH(1, 100); } ;
<person> =	"the Pope" { CH(1, 100); } ;
<person> =	Gadaffi { CH(1, 100); } ;
<person> =	Napoleon { CH(1, 100); } ;
<person> =	"Karl Marx" { CH(1, 100); } ;
<person> =	"Groucho" { CH(1, 100); } ;
<person> =	"Wierd Al" { CH(1, 100); } ;
<person> =	"Michael Jackson" { CH(1, 100); } ;
<person> =	Caesar { CH(1, 100); } ;
<person> =	"the Demolition Man" { CH(1, 100); } ;
<person> =	Nietzsche { CH(1, 100); } ;
<person> =	Heidegger { CH(1, 100); } ;
<person> =	Aqualung { CH(1, 100); } ;
<person> =	"the Sierra club" { CH(1, 100); } ;
<person> =	"Henry Kissenger" { CH(1, 100); } ;
<person> =	Nixon { CH(1, 100); } ;
<person> =	"the Boogie Man" { CH(1, 100); } ;
<person> =	Prince { CH(1, 100); } ;
<person> =	<person> ;

<reason1> =	"they don't want their children to grow up to be too lazy to steal" { CH(1, 20); } ;
<reason1> =	"they can't tell them apart from" <group-adj> "dudes" { CH(1, 20); } ;
<reason1> =	"they're too" <adjective> { CH(1, 20); } ;
<reason1> =	<person> "wouldn't have done it" { CH(1, 20); } ;
<reason1> =	"they can't spray paint that small" { CH(1, 20); } ;
<reason1> =	"they don't have" <thing> "#s" { CH(1, 20); } ;
<reason1> =	"they don't know how" { CH(1, 20); } ;
<reason1> =	<reason1> ;

!Funky!Stuff!