procgen  Diff

Differences From Artifact [ed24373eb4]:

• File drug.ml — part of check-in [376eaeaf04] at 2018-12-20 07:48:27 on branch trunk — update (user: lexi, size: 17750) [annotate] [blame] [check-ins using]

To Artifact [153c05522d]:

• File drug.ml — part of check-in [275f19cd9e] at 2019-03-28 05:14:48 on branch trunk — add interlace.scm, update some shit (user: lexi, size: 17773) [annotate] [blame] [check-ins using]

   261    261       Plain "prayed for";             Plain "prayed away";
   262    262       Plain "snacked";             Plain "snacked up";
   263    263       Plain "snacked out";             Plain "snacked away";
   264    264   |]
   265    265   let roas = [| "on"; "shooting up"; "using"; "mainlining"; "snorting"; "vaping"; "smoking"; "cybering";
   266    266       "sucking down"; "gargling"; "doing"; "trying"; "slurping"; "guzzling"; "popping"; "downing"; "chewing"; "pooping"; "shitting"; "pissing";
   267    267       "crunching"; "sniffing"; "zapping"; "downloading"; "dropping"; "cooking up"; "freebasing"; "hooting"; "tooting"; "blasting"; "blazing";
   268         -    "tweeting"; "honking"; "plugging"; "plugging in"; "hooking up"; "turning on"; "boofing"; "whacking"; "choking"; "ravishing"; "looting"; "slaughtering";
   269         -    "drinking"; "eating"; "slugging"; "ghouling" |]
          268  +    "tweeting"; "honking"; "plugging"; "plugging in"; "hooking up"; "turning on"; "boofing"; "whacking"; "choking"; "ravishing"; "looting"; "slaughtering"; "drinking"; "eating"; "slugging"; "ghouling"; "scrobbling"; |]
   270    269   let vroas = [| "shoot up"; "mainline"; "snort"; "vape"; "smoke"; "slurp"; 
   271    270       "suck down"; "gargle"; "do"; "try"; "guzzle"; "pop"; "down"; "chew"; "crunch"; "poop"; "shit"; "piss"; "blast"; "blaze";
   272    271       "sniff"; "zap"; "download"; "drop"; "cyber"; "cook up"; "toot"; "hoot"; "plug"; "plug in";
   273         -    "hook up"; "turn on"; "boof"; "whack"; "choke"; "drink"; "eat"; "slug"; "ghoul"; "freebase"; "ravish"; "loot"; "slaughter";|]
          272  +    "hook up"; "turn on"; "boof"; "whack"; "choke"; "drink"; "eat"; "slug"; "ghoul"; "freebase"; "ravish"; "loot"; "slaughter"; "scrobble";|]
   274    273   module Pronoun = struct
   275    274   	type t = {
   276    275   		nom : string; obl : string; gen : string;
   277    276   		refl : string; cop : string; brevcop : string;
   278    277   		pl : bool;
   279    278   	}
   280    279   	let you = {nom = "you"; obl = "you"; gen = "your"; refl = "yourself";