72
73
74
75
76
77
78
79
80
81
82
83
84
85
...
383
384
385
386
387
388
389
390
391
392
393
394
395
396
...
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
...
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
...
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
|
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)))
|
>
>
>
>
|
<
<
|
>
|
|
>
|
>
<
<
>
|
<
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
<
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
|
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
...
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
...
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
...
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
...
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
|
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)))
|