procgen  Check-in [42789d9192]

	T "software piracy";
	T "piracy";
	T "theft";
	T "regicide";
	Tv "assault";
	T "battery";
	T "treason";



	T "bribery";
	T "manslaughter";
	T "bestiality";
	T "assault and battery";
	T "corruption";
	T "corruption of a minor";
	T "highway robbery";
................................................................................
	Tv "unspeakable";
	T "tactless";
	Tv "indecent";
	Tv "intemperate";
	Tv "attempted";
	Tv "unlawful";
	T "malicious";

	Tv "aggravated";
	T "dread";
	T "horny";
	T "erotic";
	T "sexual";
	T "careless";
	T "negligent";
................................................................................
			|]
		];
		T "within one week";
		T "within the hour";
		T "by day's end";
	|])
]
let imprisonment = B[
	sentence;
    O( T "spend" );
	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";
				T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million years";
				T "billion years"; T "trillion years"; |];

		];

		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";|];























]
let status = R[|
	T "citizenship";
	T "rank";
	T "all rank";
	T "all status";
	T "all rights";
	T "all privileges";
................................................................................
                R[|T"name";T"sight";T"name and sight";|]];
			B[T "by the";
				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 "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";






















		|];
		P ",";
	]);
	R[|
		B[court;
			O(T "hereby");
			R[| T "finds"; T "declares"; T "proclaims"; T "pronounces"; T "judges"; Tv "adjudges";|];
................................................................................
	R[| T "you"; T "the defendant"; T "the accused party";|];
	T "guilty";
	O(Tv "on all counts");
	Tv "of";
	charge;
	P".";
	O(B[
		R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole";|];
		P".";
	]);
])
let global = R[|conviction; accusation;|]
let () = Random.self_init ();
	print_string
		(String.trim
			(flatten
				(eval global)))

	T "software piracy";
	T "piracy";
	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";
	T "corruption of a minor";
	T "highway robbery";
................................................................................
	Tv "unspeakable";
	T "tactless";
	Tv "indecent";
	Tv "intemperate";
	Tv "attempted";
	Tv "unlawful";
	T "malicious";
	T "treacherous";
	Tv "aggravated";
	T "dread";
	T "horny";
	T "erotic";
	T "sexual";
	T "careless";
	T "negligent";
................................................................................
			|]
		];
		T "within one week";
		T "within the hour";
		T "by day's end";
	|])
]
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";
				T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million 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";


	|] 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";
	T "all rights";
	T "all privileges";
................................................................................
                R[|T"name";T"sight";T"name and sight";|]];
			B[T "by the";
				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;
			O(T "hereby");
			R[| T "finds"; T "declares"; T "proclaims"; T "pronounces"; T "judges"; Tv "adjudges";|];
................................................................................
	R[| T "you"; T "the defendant"; T "the accused party";|];
	T "guilty";
	O(Tv "on all counts");
	Tv "of";
	charge;
	P".";
	O(B[
        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)))