Differences From
Artifact [1419510218]:
72 72 T "software piracy";
73 73 T "piracy";
74 74 T "theft";
75 75 T "regicide";
76 76 Tv "assault";
77 77 T "battery";
78 78 T "treason";
79 + T "high treason";
80 + T "treachery";
81 + T "treason and treachery";
79 82 T "bribery";
80 83 T "manslaughter";
81 84 T "bestiality";
82 85 T "assault and battery";
83 86 T "corruption";
84 87 T "corruption of a minor";
85 88 T "highway robbery";
................................................................................
383 386 Tv "unspeakable";
384 387 T "tactless";
385 388 Tv "indecent";
386 389 Tv "intemperate";
387 390 Tv "attempted";
388 391 Tv "unlawful";
389 392 T "malicious";
393 + T "treacherous";
390 394 Tv "aggravated";
391 395 T "dread";
392 396 T "horny";
393 397 T "erotic";
394 398 T "sexual";
395 399 T "careless";
396 400 T "negligent";
................................................................................
583 587 |]
584 588 ];
585 589 T "within one week";
586 590 T "within the hour";
587 591 T "by day's end";
588 592 |])
589 593 ]
590 -let imprisonment = B[
591 - sentence;
592 - O( T "spend" );
593 - R[|
594 +let imprisonment =
595 + let time = R[|
594 596 B[
595 597 R[|T "two"; T "three"; T "four"; T "five"; T "six"; T "seven";
596 598 Tv "eight"; T "nine"; T "ten";|];
597 - R[|T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia";
599 + R[|
600 + T "seconds"; T "minutes"; T "days"; T "weeks"; T "years"; T "decades"; T "millennia";
598 601 T "hundred years"; T "thousand years"; Tv "eons"; Tv "ages"; Tv "eras"; T "million years";
599 - T "billion years"; T "trillion years"; |];
602 + T "billion years"; T "trillion years";
603 + T "lives"; T "lifetimes"; T "kalpa";
604 + |];
600 605 ];
601 606 B[
602 607 R[|Indef;Tv "one";|];
603 608 R[|T "second"; T "minute"; T "day"; T "week"; T "year"; T "decade"; T "millennium";
604 609 T "hundred years"; T "thousand years"; Tv "eon"; Tv "age"; Tv "era"; T "million years";
605 610 T "billion years"; T "trillion years"; |];
606 611 ];
607 612 Tv "a lifetime";
608 613 Tv "an eternity";
609 - |];
610 - R[|Tv "of community service"; Tv "in state prison"; Tv "in federal prison"; Tv "in prison";
611 - Tv "of jail time"; Tv "of prison time"; B[T "without"; R[|B[Indef; thing];thingp|];];
612 - Tv "alone"; T "in the gulag"; Tv "in a labor camp"; Tv "in the county jail";
613 - T "thinking about what you've done"; Tv "of penance"; Tv "in the Box";
614 - Tv "in the Shame Cube"; Tv "in the nightmares of children";
615 - Tv "in a magic lamp";Tv "in a cursed mirror"; Tv "of indentured servitude"; Tv "of slavery";|];
616 -]
614 + |] in let mods = R[|
615 + B[T "without"; R[|B[Indef; thing];thingp;T "parole";|];];
616 + |] in let states = R[|
617 + mods;
618 + Tv "alone";
619 + T "thinking about what you've done";
620 + |] in let ofsents = B[
621 + Tv "of";
622 + R[|
623 + T "community service";
624 + T "jail time"; T "prison time";
625 + T "indentured servitude";
626 + T "penal servitude";
627 + T "sexual servitude";
628 + T "servitude";
629 + T "sexual slavery";
630 + T "slavery";
631 + T "penance";
632 + T "compensatory labor";
633 + |];
634 + O(R[| T"most abject"; T"most shameful"; T"most foul"; T"most arduous"; |]);
635 + ] in let insents = B[
636 + Tv "in";
637 + R[|
638 + T "state prison"; T "federal prison"; T "prison";
639 + Tv "a labor camp"; T "the county jail";
640 + B[
641 + T "the";
642 + O(R[|
643 + T "municipal";
644 + T "county";
645 + T "state";
646 + T "federal";
647 + |]);
648 + R[|
649 + T "snake pit";
650 + T "gulag";
651 + T "swamp";
652 + T "Shame Cube";
653 + |];
654 + ];
655 + T "the nightmares of children";
656 + T "the Box"; T "the Pit"; T "the Crime Hole";
657 + Tv "a magic lamp"; Tv "a cursed mirror";
658 + |];
659 + ] in (* yech *) R[|
660 + B[sentence; time; R[|
661 + ofsents;
662 + insents;
663 + mods;
664 + B[ofsents; mods];
665 + B[mods; insents];
666 + B[ofsents; insents];
667 + B[ofsents; mods; insents];
668 + B[ofsents; insents; mods];
669 + |]];
670 + B[sentence; T"spend"; time; R[|
671 + insents;
672 + states;
673 + B[states; insents];
674 + B[ofsents; insents];
675 + B[ofsents; states; insents];
676 + B[ofsents; insents; states];
677 + |]];
678 + |];;
679 +
617 680 let status = R[|
618 681 T "citizenship";
619 682 T "rank";
620 683 T "all rank";
621 684 T "all status";
622 685 T "all rights";
623 686 T "all privileges";
................................................................................
781 844 R[|T"name";T"sight";T"name and sight";|]];
782 845 B[T "by the";
783 846 R[|T"grace";T"power";T"grace and power";T"will";|]];
784 847 |];
785 848 Tv "of";
786 849 R[|
787 850 T "the Queen"; T "the King"; T "her Majesty the Queen"; T "his Majesty the King";
851 + T "Freyja"; T "Odin"; T "Thor"; T "Jupiter"; T "Jupiter Optimus Maximus"; T "Zeus"; T "Nyx"; T "Ra";
852 + T "Friend Computer"; T "the Algorithm";
853 + T "the Gods"; T "the Gods of Earth and Sky"; T "gods above and below";
788 854 T "all that is holy"; T "justice"; T "God"; T "the Lord"; T "the Sultan"; T "the Caliph";
789 855 T "the Prince"; T "the Princess"; T "the Realm"; T "the Kingdom"; T "our infernal master";
790 856 T "Satan"; T "Lucifer"; T "Heaven"; T "the heavens"; T "the Prophet"; T "Yaldabaoth";
791 857 T "Heaven and all its angels"; T "our Creator"; T "the Maker"; T "the spirits";
792 858 T "our great and wretched God"; T "the People"; T "the People of the State of Kentucky";
859 +
860 + (* great and nebulous powers *)
861 + T "the Organization"; T "the Directorate"; T "the Department"; T "the Division"; T "the Committee";
862 +
863 + (* Spirals *)
864 + T "the Triumvirate"; T "the Society of Worlds";
865 + T "her Radiance the Empress"; T "the First Empress";
866 + T "Khata'e"; T "Matikhe";
867 +
868 + (* SCPverse *)
869 + (* jannies *)
870 + T "the Foundation"; T "Overwatch Council"; T "the Site Directors' Committee of the Whole"; T "the Ethics Committee"; T "the Administrator";
871 + Fn(fun () -> An("O5-" ^ (string_of_int (range 1 13))));
872 +
873 + (* bookburners *)
874 + T "the United Nations Global Occult Coalition";
875 + T "the Council of 108";
876 + T "Undersecretary D.C. al Fine";
877 + T "Madam al Fine";
878 +
879 + (* snakefuckers *)
880 + T "the Serpent"; T "the Head Librarian";
793 881 |];
794 882 P ",";
795 883 ]);
796 884 R[|
797 885 B[court;
798 886 O(T "hereby");
799 887 R[| T "finds"; T "declares"; T "proclaims"; T "pronounces"; T "judges"; Tv "adjudges";|];
................................................................................
806 894 R[| T "you"; T "the defendant"; T "the accused party";|];
807 895 T "guilty";
808 896 O(Tv "on all counts");
809 897 Tv "of";
810 898 charge;
811 899 P".";
812 900 O(B[
813 - R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole";|];
901 + R[|imprisonment; reduce; order; banishment; condemnation; T"Get in the Crime Hole"; T"Get thee to a nunnery";|];
814 902 P".";
815 903 ]);
816 904 ])
817 905 let global = R[|conviction; accusation;|]
818 906 let () = Random.self_init ();
819 907 print_string
820 908 (String.trim
821 909 (flatten
822 910 (eval global)))