1
2
3
4
5
6
7
8
9
..
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
..
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
..
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
...
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
...
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
...
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
...
344
345
346
347
348
349
350
351
352
353
354
355
|
; (include "lib/lisp-macro.scm")
(include "lib/bot-gambit.scm")
(rule (base-ideology)
("liberalism") ("socialism") ("capitalism")
("anarchism") ("marxism") ("marxism-leninism")
("nazism") ("feminism") ("stalinism")
("democracy") ("stirnerism") ("harm reduction")
("egoism") ("objectivism") ("monarchism")
................................................................................
("tribadism") ("eugenics") ("fascism")
("juche") ("nationalism") ("human extinctionism")
("demonology") ("linguistics") ("voluntary human extinction")
("onanism") ("anthropology") ("authoritarianism")
("totalitarianism") ("social justice") ("identity politics")
("idpol") ("terrorism") ("islamism")
("hedonism") ("libertinism") ("computer science")
("libertarianism") ("static typing") ("dynamic typing")
("neoliberalism"))
(rule (ideology-prefix)
("neo-") ("social ") ("democratic ")
("paleo-") ("retro-") ("anarcho-")
("femino-") ("neo") ("anti-")
("sado-") ("eroto-") ("strangulo-")
("theo-") ("ultra-") ("arachno-")
................................................................................
("racism") ("mortality") ("misogyny")
("drug use") ("alcoholism") ("homophobia")
("addiction") ("exploitation") ("drug prohibition")
("nazism") ("class conflict") ("harm reduction")
("biphobia") ("lesbianism") ("the opioid crisis")
("Russia") ("masturbation") ("nuclear war")
("oppression") ("immigration") ("totalitarianism")
("depression") ("mental illness") ("war")
("disease") ("the bourgeoisie")
("crime") ("activism") ("Noam Chomsky")
("wealth") ("eugenics") ("bigotry")
("genocide") ("bitcoin") ("ethnic cleansing")
("vaccination") ("autism") ("the alt-right")
("authoritarianism") ("freedom of speech")
("tooth decay") ("neurodivergence")
("abortion") ("healthcare") ("the war")
("islamophobia") ("sexting") ("static typing")
("dynamic typing") ("heterophobia") ("heterosexuality"))
(rule (adjective)
("racist") ("homophobic") ("misogynist")
("bigoted") ("anti-" (thing)) ("evil")
("insane") ("impossible") ("contradictory")
("illogical") ("revolutionary") ("self-contradictory")
("white") ("communist") ("socialist")
("marxist") ("stalinist") ("lesbian")
................................................................................
("religious") ("bourgeois") ("proletarian")
("classist") ("monarchist") ("fascist")
("postfurry") ("eugenicist") ("alt-right")
("furry") ("problematic") ("totalitarian")
("unlikely") ("compromised") ("authoritarian")
("useless") ("useful") ("neurodivergent")
("desirable") ("undesirable") ("dialectic")
("undialectic") ("undefined") ("imperialist")
("good") ("bad") ("colonialist")
("acausal") ("black") ("statically-typed")
("emergent") ("libertarian") ("unreconstructed")
("teenage") ("Lacanian") ("intersectional")
("horny") ("thirsty"))
(rule (trait)
("power") ("influence") ("wealth") ("solidarity")
("hope") ("conviction") ("autonomy") ("freedom")
................................................................................
("addicts") ("junkies") ("tweakers")
("potheads") ("acid heads") ("meth addicts")
("doctors") ("gamers") ("marijuana users")
("dentists") ("fascists") ("marijuana addicts")
("nazis") ("wizards") ("heroin addicts")
("hackers") ("LSD addicts") ("disabled people")
("criminals") ("teenagers") ("the differently-abled")
("teens") ("cissexuals"))
; utility fns
(rule (adjfor adj con g)
(adj)
(adj con g))
(rule (modal)
("will") ("could") ("might") ("will likely") ("can")
................................................................................
(i " fails to address " (problem))
(i " does not address " (problem))
(i " disregards " (problem))
(i " is not a solution for " (problem))
(i " does not solve " (problem))
(i " cannot solve " (problem))
)
(rule (predicate i)
(i " was developed after " (ideology))
(i " was developed before " (ideology))
(i " was developed before " (problem) " was recognized")
(i " was developed before " (problem) " was recognized as a problem")
(i " was developed before the issue of " (problem) " came into focus")
(i " developed before general awareness of " (problem))
(i " was built on " (ideology))
(i " was inspired by " (ideology))
(i " was influenced by " (ideology))
(i " is an ideological descendent of " (ideology))
(i " was developed by " (group))
(i " was developed to address the needs of " (group))
(i " was developed to address the needs of " (group) ", not " (group))
("the main contradiction of " i " is " (problem))
((group) " believe that " (pc claim (ideology))))
(rule (claim i)
((problem) " " (modal) " inevitably arise")
((problem) " " (modal) " still exist")
((problem) " " (modal) " " (cause-provoke) " " (problem))
((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
((problem) " cannot be distinguished from " i)
................................................................................
((cause (group) i) " suffer")
((cause (group) i) " be marginalized")
((cause (group) i) " become marginalized")
((cause (group) i) " become exploited")
((cause (group) i) " become addicted to " (thingss))
((cause (group) i) " lose their " (trait))
((cause (group) i) " lose their " (things))
((cause (group) i) " no longer have " (necessity))
((cause (group) i) " no longer be able to get " (necessity))
((cause (group) i) " lose access to " (necessity))
)
(rule (pc p i) ((p i)) ((predicate-or-claim (pick (vector "it" i)))))
(rule (statement i)
((pc predicate i))
((pc claim i))
("i think " (pc claim i))
("it is my considered opinion that " (pc claim i))
("i think we all know that " (pc claim i))
("nobody would deny that " (pc claim i))
................................................................................
(i (punct) " checkmate " (atheists) (end-punct))
(i (punct) " checkmate" (punct) " " (atheists) (end-punct))
(i (punct) " #checkmate" (atheists))
(i (punct) " #CheckmateAtheists")
(i (punct) " #CheckmateAthiests"))
(define (checkmate-athiests i)
(if (eqv? (random-integer 9) 0)
(checkmate-atheists i) ; else
i))
(print (checkmate-athiests (statement (ideology))) "\n")
|
|
|
|
|
|
|
|
|
|
>
<
>
>
|
>
>
|
<
>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
>
>
|
|
>
>
>
>
>
>
|
|
|
|
1
2
3
4
5
6
7
8
9
..
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
..
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
..
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
...
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
...
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
...
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
...
374
375
376
377
378
379
380
381
382
383
384
385
|
(include "lib/lisp-macro.scm")
(include "lib/bot.scm")
(rule (base-ideology)
("liberalism") ("socialism") ("capitalism")
("anarchism") ("marxism") ("marxism-leninism")
("nazism") ("feminism") ("stalinism")
("democracy") ("stirnerism") ("harm reduction")
("egoism") ("objectivism") ("monarchism")
................................................................................
("tribadism") ("eugenics") ("fascism")
("juche") ("nationalism") ("human extinctionism")
("demonology") ("linguistics") ("voluntary human extinction")
("onanism") ("anthropology") ("authoritarianism")
("totalitarianism") ("social justice") ("identity politics")
("idpol") ("terrorism") ("islamism")
("hedonism") ("libertinism") ("computer science")
("libertarianism"); ("static typing") ("dynamic typing")
("neoliberalism"))
(rule (ideology-prefix)
("neo-") ("social ") ("democratic ")
("paleo-") ("retro-") ("anarcho-")
("femino-") ("neo") ("anti-")
("sado-") ("eroto-") ("strangulo-")
("theo-") ("ultra-") ("arachno-")
................................................................................
("racism") ("mortality") ("misogyny")
("drug use") ("alcoholism") ("homophobia")
("addiction") ("exploitation") ("drug prohibition")
("nazism") ("class conflict") ("harm reduction")
("biphobia") ("lesbianism") ("the opioid crisis")
("Russia") ("masturbation") ("nuclear war")
("oppression") ("immigration") ("totalitarianism")
("depression") ("mental illness") ("war") ("vore")
("disease") ("the bourgeoisie")
("crime") ("activism") ("Noam Chomsky")
("wealth") ("eugenics") ("bigotry")
("genocide") ("bitcoin") ("ethnic cleansing")
("vaccination") ("autism") ("the alt-right")
("authoritarianism") ("freedom of speech")
("tooth decay") ("neurodivergence")
("abortion") ("healthcare") ("the war")
("islamophobia") ("sexting") ; ("static typing") ("dynamic typing")
("heterophobia") ("heterosexuality"))
(rule (adjective)
("racist") ("homophobic") ("misogynist")
("bigoted") ("anti-" (thing)) ("evil")
("insane") ("impossible") ("contradictory")
("illogical") ("revolutionary") ("self-contradictory")
("white") ("communist") ("socialist")
("marxist") ("stalinist") ("lesbian")
................................................................................
("religious") ("bourgeois") ("proletarian")
("classist") ("monarchist") ("fascist")
("postfurry") ("eugenicist") ("alt-right")
("furry") ("problematic") ("totalitarian")
("unlikely") ("compromised") ("authoritarian")
("useless") ("useful") ("neurodivergent")
("desirable") ("undesirable") ("dialectic")
("undialectical")("undefined") ("imperialist")
("good") ("bad") ("colonialist")
("acausal") ("black") ;("statically-typed")
("emergent") ("libertarian") ("unreconstructed")
("teenage") ("Lacanian") ("intersectional")
("horny") ("thirsty"))
(rule (trait)
("power") ("influence") ("wealth") ("solidarity")
("hope") ("conviction") ("autonomy") ("freedom")
................................................................................
("addicts") ("junkies") ("tweakers")
("potheads") ("acid heads") ("meth addicts")
("doctors") ("gamers") ("marijuana users")
("dentists") ("fascists") ("marijuana addicts")
("nazis") ("wizards") ("heroin addicts")
("hackers") ("LSD addicts") ("disabled people")
("criminals") ("teenagers") ("the differently-abled")
("teens") ("cissexuals") ("the working class"))
; utility fns
(rule (adjfor adj con g)
(adj)
(adj con g))
(rule (modal)
("will") ("could") ("might") ("will likely") ("can")
................................................................................
(i " fails to address " (problem))
(i " does not address " (problem))
(i " disregards " (problem))
(i " is not a solution for " (problem))
(i " does not solve " (problem))
(i " cannot solve " (problem))
("basically, " (predicate-or-claim ii))
)
(rule (predicate i)
(i " was developed after " (ideology))
(i " was developed before " (ideology))
(i " was developed before " (problem) " was recognized")
(i " was developed before " (problem) " was recognized as a problem")
(i " was developed before the issue of " (problem) " came into focus")
(i " developed before general awareness of " (problem))
(i " was built on " (ideology))
(i " was inspired by " (ideology))
(i " was influenced by " (ideology))
(i " is an ideological descendent of " (ideology))
(i " is an ideological descendent of " (ideology) " and " (ideology))
(i (one-of
" was developed by " " was designed by "
" is in the class interests of "
" only addresses the needs of "
" was developed to address the needs of "
" centers " " uplifts " " only liberates "
" centers the needs of " " only cares about "
" centers the struggles of "
" centers the struggle of ")
(group) (one-of "" (string-append ", not " (group))))
(i (one-of
" disregards "
" disregards the needs of "
" cannot address the struggles of "
" does not liberate " " disrespects "
" disrespects the identity of "
" disrespects the culture of "
" disrespects the history of "
" lacks consideration for "
" does not center " " fails to center "
" does not center the needs of"
" fails to center the needs of ")
(group))
("the main contradiction of " i " is " (problem))
((group) " believe that " (pc claim i))
((group) " have an inherent right to "
(one-of "be a part of " " ")
(one-of (thing) (problem))))
(rule (claim i)
((problem) " " (modal) " inevitably arise")
((problem) " " (modal) " still exist")
((problem) " " (modal) " " (cause-provoke) " " (problem))
((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
((problem) " cannot be distinguished from " i)
................................................................................
((cause (group) i) " suffer")
((cause (group) i) " be marginalized")
((cause (group) i) " become marginalized")
((cause (group) i) " become exploited")
((cause (group) i) " become addicted to " (thingss))
((cause (group) i) " lose their " (trait))
((cause (group) i) " lose their " (things))
((cause (group) i) " " (@
("no longer " (@ ("have ")
("be able to " (@ ("get ")
("get access to ")
("have ")))))
("not have "))
(necessity)
(one-of " in their lives" " anymore" " in their lives anymore" ""))
((cause (group) i) " lose access to " (necessity))
)
(rule (pc p i) ((p i)) ((predicate-or-claim (one-of "it" i))))
(rule (statement i)
((pc predicate i))
((pc claim i))
("i think " (pc claim i))
("it is my considered opinion that " (pc claim i))
("i think we all know that " (pc claim i))
("nobody would deny that " (pc claim i))
................................................................................
(i (punct) " checkmate " (atheists) (end-punct))
(i (punct) " checkmate" (punct) " " (atheists) (end-punct))
(i (punct) " #checkmate" (atheists))
(i (punct) " #CheckmateAtheists")
(i (punct) " #CheckmateAthiests"))
(define (checkmate-athiests i)
(if (eqv? (pseudo-random-integer 9) 0)
(checkmate-atheists i) ; else
i))
(print (checkmate-athiests (statement (ideology))))
|