Index: monster.ml
==================================================================
--- monster.ml
+++ monster.ml
@@ -4,42 +4,47 @@
 	"sagacity"; "splendor"; "pride"; "rage"; "fury"; "snazz";
 	"foolishness"; "sleepiness"; "curiosity"; "brevity"; "lust";
 	"confidence"; "bashfulness"; "awkwardness"; "terror";
 	"accuracy"; "insanity"; "sorrow"; "gladness"; "weariness";
 	"depression"; "passion"; "dread"; "popularity"; "vulgarity";
-	"madness"; "compassion";
+    "madness"; "compassion"; "tact";
 |]
 let mods = [|
 	"filled"; "overcome"; "shining"; "vivacious";
 	"burning"; "blazing"; "morose"; "gleeful"; "mad";
 	"shaking"; "howling"; "snarling"; "gruesome";
-	"helpless"; "vibrant"; "desperate";
+    "helpless"; "vibrant"; "desperate"; "triumphant";
+    "glum"; "sorrowful"; "struck";
 |]
 let advs = [|
 	"cruelly"; "angrily"; "madly"; "hopelessly"; "thoughtlessly";
 	"wickedly"; "hopefully"; "quickly"; "speedily"; "furiously";
 	"kindly"; "maniacally"; "tearfully"; "bashfully"; "angrily";
 	"wondrously"; "splendidly"; "tremendously"; "badly";
 	"terribly"; "foolishly"; "snazzily"; "toplessly"; "balefully";
 	"beautifully"; "kindly"; "thoughtfully"; "cautiously";
-	"severely"; "wisely";
+    "severely"; "wisely"; "lustfully"; "tactfully";
 |]
 let adjs = [|
 	"cheerful"; "wondrous"; "overwhelming"; "adorable";
 	"snazzy"; "hopeful"; "desperate"; "lustful"; "dour";
 	"sad"; "sorrowful"; "hopeless"; "all-consuming"; "mad";
 	"cruel"; "dreadful"; "terrible"; "fearsome"; "inescapable";
 	"thoughtless"; "vile"; "bashful"; "topless"; "naked"; "dire";
 	"baleful"; "vulgar"; "beautiful"; "horrid"; "cautious";
-	"violent"; "wise"; "supreme"; "marvelous";
+    "violent"; "wise"; "supreme"; "marvelous"; "tactful";
 |]
 let verbs = [|
 	"shines"; "toots"; "honks"; "mutters"; "whispers"; "growls";
 	"roars"; "whuffles"; "warbles"; "howls"; "screams"; "shrieks";
 	"quivers"; "dances"; "hops up and down"; "grins"; "mumbles";
 	"counsels you"; "glares"; "stares at you"; "looks up"; "gazes at you";
-	"marvels"; "laughs";
+    "marvels"; "laughs"; "sins"; "whistles"; "whungles"; "jangles";
+    "twerks"; "blinks"; "blorps"; "flunks"; "planks"; "glitters";
+    "gleams"; "grumbles"; "grouches"; "bites you"; "gnaws on you";
+    "glimmers"; "gripes"; "plots"; "wonders"; "whittles"; "plays the fiddle";
+    "ponders"; "contemplates you"; "scrunches"; "zaps"; "zaps you";
 |]
 
 let pick a = a.(Random.int (Array.length a))
 type rule = R of string array | S of string | B of rule list | A of rule array | O of rule;;
 let rec eval r : string = match r with
@@ -60,11 +65,11 @@
 	let sr = A [|
 		B[obs; v; O obs];
 		B[A [|stop;vstop;fric;vfric;|]; O liq; v; O obs];
 	|] in eval sr
 	;;
-let prefixes = [| "ur-"; "dire "; "dire ur-"; "super " |]
+let prefixes = [| "ur-"; "dire "; "dire ur-"; "super "; "ultra "; "great "; "grand "; "terror-"; "horror-"; "giant "; "evil "; "dark ";|]
 let name () =
 	let size = 1 + (Random.int 3) in
 	let rec loop n acc = if n = 0 then acc else loop (n-1) (acc^(syl ())) in
 	(if Random.int 2 = 0 then (pick prefixes) else "") ^ loop size "";;
 
@@ -96,11 +101,11 @@
 					A [|
 						B[ S "with "; O(B[R adjs; S" "]); R nouns;];
 						R advs;
 					|];
 				];
-				B[S"is "; O(B[R advs;S" ";]); R mods;
+				B[S"is "; O(B[R advs;S " ";]); R mods;
 					O(B[ S " with "; O(B[R adjs; S" "]); R nouns;]);
 				];
 			|];
 			S "!"; 
 	] in