Index: crime.ml
==================================================================
--- crime.ml
+++ crime.ml
@@ -74,10 +74,13 @@
 	T "theft";
 	T "regicide";
 	Tv "assault";
 	T "battery";
 	T "treason";
+	T "high treason";
+	T "treachery";
+	T "treason and treachery";
 	T "bribery";
 	T "manslaughter";
 	T "bestiality";
 	T "assault and battery";
 	T "corruption";
@@ -385,10 +388,11 @@
 	Tv "indecent";
 	Tv "intemperate";
 	Tv "attempted";
 	Tv "unlawful";
 	T "malicious";
+	T "treacherous";
 	Tv "aggravated";
 	T "dread";
 	T "horny";
 	T "erotic";
 	T "sexual";
@@ -585,37 +589,96 @@
 		T "within one week";
 		T "within the hour";
 		T "by day's end";
 	|])
 ]
-let imprisonment = B[
-	sentence;
-    O( T "spend" );
-	R[|
+let imprisonment = 
+    let time = R[|
 		B[
 			R[|T "two"; T "three"; T "four"; T "five"; T "six"; T "seven";
 			Tv "eight"; T "nine"; T "ten";|];
-			R[|T "seconds"; T "minutes"; T "days"; T "weeks";  T "years"; T "decades"; T "millennia";
+			R[|
+                T "seconds"; T "minutes"; T "days"; T "weeks";  T "years"; T "decades"; T "millennia";
 				T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million years";
-				T "billion years"; T "trillion years"; |];
+				T "billion years"; T "trillion years";
+                T "lives"; T "lifetimes"; T "kalpa";
+            |];
 		];
 		B[
 			R[|Indef;Tv "one";|];
 			R[|T "second"; T "minute"; T "day"; T "week";  T "year"; T "decade"; T "millennium";
 				T "hundred years"; T "thousand years"; Tv "eon"; Tv "age"; Tv "era"; T "million years";
 				T "billion years"; T "trillion years"; |];
 		];
 		Tv "a lifetime";
 		Tv "an eternity";
-	|];
-	R[|Tv "of community service"; Tv "in state prison"; Tv "in federal prison"; Tv "in prison"; 
-		Tv "of jail time"; Tv "of prison time"; B[T "without"; R[|B[Indef; thing];thingp|];];
-		Tv "alone"; T "in the gulag"; Tv "in a labor camp"; Tv "in the county jail";
-		T "thinking about what you've done"; Tv "of penance"; Tv "in the Box";
-		Tv "in the Shame Cube"; Tv "in the nightmares of children";
-		Tv "in a magic lamp";Tv "in a cursed mirror"; Tv "of indentured servitude"; Tv "of slavery";|];
-]
+	|] in let mods = R[|
+        B[T "without"; R[|B[Indef; thing];thingp;T "parole";|];];
+    |] in let states = R[|
+        mods;
+		Tv "alone";
+		T "thinking about what you've done";
+    |] in let ofsents = B[
+        Tv "of";
+        R[|
+            T "community service";
+            T "jail time"; T "prison time";
+            T "indentured servitude";
+            T "penal servitude";
+            T "sexual servitude";
+            T "servitude";
+            T "sexual slavery";
+            T "slavery";
+            T "penance";
+            T "compensatory labor";
+        |];
+        O(R[| T"most abject"; T"most shameful"; T"most foul"; T"most arduous"; |]);
+    ] in let insents = B[
+        Tv "in";
+        R[|
+            T "state prison"; T "federal prison"; T "prison"; 
+            Tv "a labor camp"; T "the county jail";
+            B[
+                T "the";
+                O(R[|
+                    T "municipal";
+                    T "county";
+                    T "state";
+                    T "federal";
+                |]);
+                R[|
+                    T "snake pit";
+                    T "gulag";
+                    T "swamp";
+                    T "Shame Cube";
+                |];
+            ];
+            T "the nightmares of children";
+            T "the Box"; T "the Pit"; T "the Crime Hole";
+            Tv "a magic lamp"; Tv "a cursed mirror";
+        |];
+    ] in (* yech *) R[|
+        B[sentence; time; R[|
+            ofsents;
+            insents;
+            mods;
+            B[ofsents; mods];
+            B[mods; insents];
+            B[ofsents; insents];
+            B[ofsents; mods; insents];
+            B[ofsents; insents; mods];
+        |]];
+        B[sentence; T"spend"; time; R[|
+            insents;
+            states;
+            B[states; insents];
+            B[ofsents; insents];
+            B[ofsents; states; insents];
+            B[ofsents; insents; states];
+        |]];
+    |];;
+
 let status = R[|
 	T "citizenship";
 	T "rank";
 	T "all rank";
 	T "all status";
@@ -783,15 +846,40 @@
 				R[|T"grace";T"power";T"grace and power";T"will";|]];
 		|];
 		Tv "of";
 		R[|
 			T "the Queen"; T "the King"; T "her Majesty the Queen"; T "his Majesty the King";
+            T "Freyja"; T "Odin"; T "Thor"; T "Jupiter"; T "Jupiter Optimus Maximus"; T "Zeus"; T "Nyx"; T "Ra";
+            T "Friend Computer"; T "the Algorithm";
+            T "the Gods"; T "the Gods of Earth and Sky"; T "gods above and below";
 			T "all that is holy"; T "justice"; T "God"; T "the Lord"; T "the Sultan"; T "the Caliph";
 			T "the Prince"; T "the Princess"; T "the Realm"; T "the Kingdom"; T "our infernal master";
 			T "Satan"; T "Lucifer"; T "Heaven"; T "the heavens"; T "the Prophet"; T "Yaldabaoth";
 			T "Heaven and all its angels"; T "our Creator"; T "the Maker"; T "the spirits";
             T "our great and wretched God"; T "the People"; T "the People of the State of Kentucky";
+
+            (* great and nebulous powers *)
+            T "the Organization"; T "the Directorate"; T "the Department"; T "the Division"; T "the Committee";
+
+            (* Spirals *)
+            T "the Triumvirate"; T "the Society of Worlds"; 
+            T "her Radiance the Empress"; T "the First Empress"; 
+            T "Khata'e"; T "Matikhe";
+
+            (* SCPverse *)
+                (* jannies *)
+                T "the Foundation"; T "Overwatch Council"; T "the Site Directors' Committee of the Whole"; T "the Ethics Committee"; T "the Administrator";
+                Fn(fun () -> An("O5-" ^ (string_of_int (range 1 13))));
+
+                (* bookburners *)
+                T "the United Nations Global Occult Coalition";
+                T "the Council of 108";
+                T "Undersecretary D.C. al Fine";
+                T "Madam al Fine";
+
+                (* snakefuckers *)
+                T "the Serpent"; T "the Head Librarian";
 		|];
 		P ",";
 	]);
 	R[|
 		B[court;
@@ -808,15 +896,15 @@
 	O(Tv "on all counts");
 	Tv "of";
 	charge;
 	P".";
 	O(B[
-		R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole";|];
+        R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole"; T"Get thee to a nunnery";|];
 		P".";
 	]);
 ])
 let global = R[|conviction; accusation;|]
 let () = Random.self_init ();
 	print_string
 		(String.trim
 			(flatten
 				(eval global)))