42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
...
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
...
309
310
311
312
313
314
315
316
317
|
("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")
("islamophobia") ("sexting") ("static typing")
("dynamic typing") ("heterophobia") ("heterosexuality"))
(rule (adjective)
("racist") ("homophobic") ("misogynist")
("bigoted") ("anti-" (thing)) ("evil")
("insane") ("impossible") ("contradictory")
("illogical") ("revolutionary") ("self-contradictory")
................................................................................
((problem) " " (modal) " still exist")
((problem) " " (modal) " " (cause-provoke) " " (problem))
((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
((problem) " cannot be distinguished from " i)
(i " and " (ideology) " cannot be distinguished")
(i " and " (ideology) " will produce the same result")
((group) " " (modal) " be exploited")
((group) " " (modal) " still be exploited")
((group) " " (modal) " be exploited under " i)
((group) " " (modal) " still be exploited under " i)
((group) " " (modal) " face " (problem))
(i " " (modal) " kill " (group))
................................................................................
("since " (pc predicate i) ", " (pc claim i))
("as a result of " (problem) ", " (pc claim i))
("due to " (problem) ", " (pc claim i))
("despite what " (group) " think, " (pc claim i))
("despite what " (group) " think about " (problem) ", " (pc claim i))
("while " (group) " think " (pc claim i) ", the reality is that " (pc claim i))
)
(print (statement (ideology)) "\n")
|
|
|
|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
...
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
...
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
|
("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")
................................................................................
((problem) " " (modal) " still exist")
((problem) " " (modal) " " (cause-provoke) " " (problem))
((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
((problem) " cannot be distinguished from " i)
(i " and " (ideology) " cannot be distinguished")
(i " and " (ideology) " will produce the same result")
((group) " " (modal) " beaxploited")
((group) " " (modal) " still be exploited")
((group) " " (modal) " be exploited under " i)
((group) " " (modal) " still be exploited under " i)
((group) " " (modal) " face " (problem))
(i " " (modal) " kill " (group))
................................................................................
("since " (pc predicate i) ", " (pc claim i))
("as a result of " (problem) ", " (pc claim i))
("due to " (problem) ", " (pc claim i))
("despite what " (group) " think, " (pc claim i))
("despite what " (group) " think about " (problem) ", " (pc claim i))
("while " (group) " think " (pc claim i) ", the reality is that " (pc claim i))
)
(rule (punct)
(".") ("…") (" —") (",")
(",") ("...") (" -") (" --")
("?") ("!") ("!?") (";"))
(rule (end-punct)
(".") ("…") ("...") ("!")
("?") ("!") ("!!"))
(rule (atheists)
("atheists") ("athiests"))
(rule (checkmate-atheists i)
(i (punct) " checkmate, " (atheists) (end-punct))
(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 20) 0)
(checkmate-atheists i) ; else
i))
(print (checkmate-athiests (statement (ideology))) "\n")
|