1321 lines
51 KiB
EmacsLisp
1321 lines
51 KiB
EmacsLisp
;; splork.el
|
|
;; Copyright (C) 2024 William R. Moore <william@nerderium.com>
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
|
(defun sentence-case (sentence)
|
|
"Changes the sentence to a capital case letter at the beginning."
|
|
(let ((trimmed-sentence (string-trim sentence)))
|
|
(format "%s%s" (upcase (substring trimmed-sentence 0 1)) (substring trimmed-sentence 1))
|
|
)
|
|
)
|
|
(defun find-pos (words pos excludeProper)
|
|
"Find the Part of Speech from the array"
|
|
(setq new-words (delq nil (mapcar (lambda (x) (and (equal pos (nth 1 x)) x)) words)))
|
|
(if (equal 'true excludeProper)
|
|
(setq new-words (delq nil (mapcar (lambda (x) (and (not (equal "PROPER" (nth 2 x))) x)) new-words)))
|
|
)
|
|
(nth 0 (nth (random (length new-words)) new-words))
|
|
)
|
|
|
|
(defun find-place-noun (words)
|
|
"Generates a word from the list of place nouns"
|
|
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words)))
|
|
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "PLACE" (nth 2 x)) x)) new-words)))
|
|
(nth 0 (nth (random (length new-words)) new-words))
|
|
)
|
|
|
|
(defun find-noun-with-article (words)
|
|
"Generates any articles necessary for a noun"
|
|
(setq new-words (delq nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words)))
|
|
(setq word (nth (random (length new-words)) new-words))
|
|
|
|
(if (string-match-p "PROPER" (nth 2 word))
|
|
(nth 0 word)
|
|
(if (string-match-p "PLACE" (nth 2 word))
|
|
(nth 0 word)
|
|
(format "the %s" (nth 0 word))
|
|
)
|
|
)
|
|
)
|
|
(setq words '(
|
|
("Chinese Communist Party" "NOUN" "")
|
|
("CCP" "NOUN" "")
|
|
("was fustigated by" "VERB" "")
|
|
("fustigates" "VERB" "")
|
|
("Dragon Dice" "NOUN" "")
|
|
("incogruence" "NOUN" "")
|
|
("incogruent" "ADJECTIVE" "")
|
|
("incogruent" "ADVERB" "")
|
|
("chilli" "NOUN" "")
|
|
("snoo-snoo" "VERB" "ACTION")
|
|
("Big Lie" "NOUN" "")
|
|
("Nerderium" "NOUN" "PLACE")
|
|
("Dungeons & Dragons" "NOUN" "")
|
|
("your" "PRONOUN" "")
|
|
("their" "PRONOUN" "")
|
|
("our" "PRONOUN" "")
|
|
("my" "PRONOUN" "")
|
|
("his" "PRONOUN" "")
|
|
("was split in twain by" "PREPOSITION" "")
|
|
("is split in twain by" "PREPOSITION" "")
|
|
("was divided by" "PREPOSITION" "")
|
|
("is divided by" "PREPOSITION" "")
|
|
("was cut up by" "PREPOSITION" "")
|
|
("is cut up by" "PREPOSITION" "")
|
|
("is entombed beside" "PREPOSITION" "")
|
|
("was entombed beside" "PREPOSITION" "")
|
|
("was entombed by" "PREPOSITION" "")
|
|
("is being entombed by" "PREPOSITION" "")
|
|
("performs surgical alterations on" "PREPOSITION" "")
|
|
("was boggled by" "PREPOSITION" "")
|
|
("is boggled by" "PREPOSITION" "")
|
|
("was assassinated by" "PREPOSITION" "")
|
|
("is assassinated by" "PREPOSITION" "")
|
|
("played with" "PREPOSITION" "")
|
|
("plays with" "PREPOSITION" "")
|
|
("withdrew from" "PREPOSITION" "")
|
|
("walked to" "PREPOSITION" "")
|
|
("traveled to" "PREPOSITION" "")
|
|
("took refuge in" "PREPOSITION" "")
|
|
("took no notice of" "PREPOSITION" "")
|
|
("took control of" "PREPOSITION" "")
|
|
("took blame for" "PREPOSITION" "")
|
|
("stole from" "PREPOSITION" "")
|
|
("watched for" "PREPOSITION" "")
|
|
("shot henchmen of" "PREPOSITION" "")
|
|
("returned to" "PREPOSITION" "")
|
|
("retreated from" "PREPOSITION" "")
|
|
("reported to" "PREPOSITION" "")
|
|
("originated from" "PREPOSITION" "")
|
|
("moved to" "PREPOSITION" "")
|
|
("made fun of" "PREPOSITION" "")
|
|
("listened to" "PREPOSITION" "")
|
|
("was threatened by" "PREPOSITION" "")
|
|
("was the patron of" "PREPOSITION" "")
|
|
("was removed by" "PREPOSITION" "")
|
|
("was joined by" "PREPOSITION" "")
|
|
("was infiltrated by" "PREPOSITION" "")
|
|
("was imitated by" "PREPOSITION" "")
|
|
("was found by" "PREPOSITION" "")
|
|
("will be deprived of" "PREPOSITION" "")
|
|
("will be deprived by" "PREPOSITION" "")
|
|
("is deprived of" "PREPOSITION" "")
|
|
("is deprived by" "PREPOSITION" "")
|
|
("was deprived of" "PREPOSITION" "")
|
|
("was deprived by" "PREPOSITION" "")
|
|
("was fondled by" "PREPOSITION" "")
|
|
("was financed by" "PREPOSITION" "")
|
|
("was distressed by" "PREPOSITION" "")
|
|
("was destroyed by" "PREPOSITION" "")
|
|
("was contaminated by" "PREPOSITION" "")
|
|
("was concerned about" "PREPOSITION" "")
|
|
("was commanded by" "PREPOSITION" "")
|
|
("was attacked by" "PREPOSITION" "")
|
|
("went to" "PREPOSITION" "")
|
|
("has gone for" "PREPOSITION" "")
|
|
("flew toward" "PREPOSITION" "")
|
|
("flew to" "PREPOSITION" "")
|
|
("fled to" "PREPOSITION" "")
|
|
("fled from" "PREPOSITION" "")
|
|
("evaded agents of" "PREPOSITION" "")
|
|
("eloped with" "PREPOSITION" "")
|
|
("has dealt with" "PREPOSITION" "")
|
|
("avoided servants of" "PREPOSITION" "")
|
|
("assumed responsibility for" "PREPOSITION" "")
|
|
("withdraws from" "PREPOSITION" "")
|
|
("will go to" "PREPOSITION" "")
|
|
("was seen in" "PREPOSITION" "")
|
|
("was eliminated by" "PREPOSITION" "")
|
|
("walks to" "PREPOSITION" "")
|
|
("travels to" "PREPOSITION" "")
|
|
("takes refuge in" "PREPOSITION" "")
|
|
("takes no notice of" "PREPOSITION" "")
|
|
("takes control of" "PREPOSITION" "")
|
|
("takes blame for" "PREPOSITION" "")
|
|
("steals from" "PREPOSITION" "")
|
|
("should watch for" "PREPOSITION" "")
|
|
("shoots henchmen of" "PREPOSITION" "")
|
|
("returns to" "PREPOSITION" "")
|
|
("retreats from" "PREPOSITION" "")
|
|
("reports to" "PREPOSITION" "")
|
|
("originates from" "PREPOSITION" "")
|
|
("moves to" "PREPOSITION" "")
|
|
("may not visit" "PREPOSITION" "")
|
|
("makes fun of" "PREPOSITION" "")
|
|
("listens to" "PREPOSITION" "")
|
|
("is threatened by" "PREPOSITION" "")
|
|
("is the patron of" "PREPOSITION" "")
|
|
("is removed by" "PREPOSITION" "")
|
|
("is like a god to" "PREPOSITION" "")
|
|
("is joined by" "PREPOSITION" "")
|
|
("is infiltrated by" "PREPOSITION" "")
|
|
("is imitated by" "PREPOSITION" "")
|
|
("is found by" "PREPOSITION" "")
|
|
("is fondled by" "PREPOSITION" "")
|
|
("is financed by" "PREPOSITION" "")
|
|
("is distressed by" "PREPOSITION" "")
|
|
("is destroyed by" "PREPOSITION" "")
|
|
("is contaminated by" "PREPOSITION" "")
|
|
("is concerned about" "PREPOSITION" "")
|
|
("is commanded by" "PREPOSITION" "")
|
|
("is attacked by" "PREPOSITION" "")
|
|
("hides in" "PREPOSITION" "")
|
|
("has left with" "PREPOSITION" "")
|
|
("has finished in" "PREPOSITION" "")
|
|
("goes to" "PREPOSITION" "")
|
|
("goes for" "PREPOSITION" "")
|
|
("flies toward" "PREPOSITION" "")
|
|
("flies to" "PREPOSITION" "")
|
|
("flees to" "PREPOSITION" "")
|
|
("flees from" "PREPOSITION" "")
|
|
("evades agents of" "PREPOSITION" "")
|
|
("elopes with" "PREPOSITION" "")
|
|
("deals with" "PREPOSITION" "")
|
|
("avoids servants of" "PREPOSITION" "")
|
|
("assumes responsibility for" "PREPOSITION" "")
|
|
("the End Zone" "NOUN" "PLACE")
|
|
("Springfield" "NOUN" "PLACE")
|
|
("the United States of America" "NOUN" "PLACE")
|
|
("Germany" "NOUN" "PLACE")
|
|
("Eldaraenth" "NOUN" "PLACE")
|
|
("Dorkish Treehouse" "NOUN" "PLACE")
|
|
("Taberna Faecvm" "NOUN" "PLACE")
|
|
("Alabama" "NOUN" "PLACE")
|
|
("Washington, D.C." "NOUN" "PLACE")
|
|
("the World Trade Center" "NOUN" "PLACE")
|
|
("the Pentagon" "NOUN" "PLACE")
|
|
("New York" "NOUN" "PLACE")
|
|
("Middle Earth" "NOUN" "PLACE")
|
|
("the Shire" "NOUN" "PLACE")
|
|
("Smallville" "NOUN" "PLACE")
|
|
("beautiful downtown Burbank" "NOUN" "PLACE")
|
|
("the Death Star" "NOUN" "PLACE")
|
|
("Yrth" "NOUN" "PLACE")
|
|
("your place" "NOUN" "PLACE")
|
|
("you-know-where" "NOUN" "PLACE")
|
|
("Wall Street" "NOUN" "PLACE")
|
|
("Uranus" "NOUN" "PLACE")
|
|
("Topeka" "NOUN" "PLACE")
|
|
("Toledo" "NOUN" "PLACE")
|
|
("the White House" "NOUN" "PLACE")
|
|
("the Watergate Hotel" "NOUN" "PLACE")
|
|
("the Vatican" "NOUN" "PLACE")
|
|
("the U.S. Attorney's Office" "NOUN" "PLACE")
|
|
("toxic waste dump" "NOUN" "PLACE")
|
|
("tavern" "NOUN" "PLACE")
|
|
("the Super Bowl" "NOUN" "PLACE")
|
|
("the South Pole" "NOUN" "PLACE")
|
|
("service station" "NOUN" "PLACE")
|
|
("same place as before" "NOUN" "PLACE")
|
|
("river" "NOUN" "PLACE")
|
|
("the Phoenix Project" "NOUN" "PLACE")
|
|
("outback" "NOUN" "PLACE")
|
|
("ocean" "NOUN" "PLACE")
|
|
("the North Pole" "NOUN" "PLACE")
|
|
("the Last National Bank" "NOUN" "PLACE")
|
|
("Hotel California" "NOUN" "PLACE")
|
|
("home of a trusted friend" "NOUN" "PLACE")
|
|
("hackers' convention" "NOUN" "PLACE")
|
|
("the Empire State Building" "NOUN" "PLACE")
|
|
("editorial department" "NOUN" "PLACE")
|
|
("dumpster" "NOUN" "PLACE")
|
|
("doghouse" "NOUN" "PLACE")
|
|
("dentists' convention" "NOUN" "PLACE")
|
|
("corner bar" "NOUN" "PLACE")
|
|
("the Bat Cave" "NOUN" "PLACE")
|
|
("brewery" "NOUN" "PLACE")
|
|
("best place possible" "NOUN" "PLACE")
|
|
("bathroom" "NOUN" "PLACE")
|
|
("Bastille" "NOUN" "PLACE")
|
|
("back forty" "NOUN" "PLACE")
|
|
("Tel Aviv" "NOUN" "PLACE")
|
|
("Switzerland" "NOUN" "PLACE")
|
|
("SJ Games" "NOUN" "PLACE")
|
|
("Sixth Street" "NOUN" "PLACE")
|
|
("Siberia" "NOUN" "PLACE")
|
|
("San Francisco" "NOUN" "PLACE")
|
|
("Poland" "NOUN" "PLACE")
|
|
("Peking" "NOUN" "PLACE")
|
|
("my back yard" "NOUN" "PLACE")
|
|
("Munich" "NOUN" "PLACE")
|
|
("Moscow" "NOUN" "PLACE")
|
|
("Mordor" "NOUN" "PLACE")
|
|
("Mission Control" "NOUN" "PLACE")
|
|
("Middle-earth" "NOUN" "PLACE")
|
|
("Mars" "NOUN" "PLACE")
|
|
("Main Street" "NOUN" "PLACE")
|
|
("Los Angeles" "NOUN" "PLACE")
|
|
("London" "NOUN" "PLACE")
|
|
("Lithuania" "NOUN" "PLACE")
|
|
("left field" "NOUN" "PLACE")
|
|
("Las Vegas" "NOUN" "PLACE")
|
|
("Lake Geneva" "NOUN" "PLACE")
|
|
("Katmandu" "NOUN" "PLACE")
|
|
("Kabul" "NOUN" "PLACE")
|
|
("Joe's Bar and Grill" "NOUN" "PLACE")
|
|
("Israel" "NOUN" "PLACE")
|
|
("Iraq" "NOUN" "PLACE")
|
|
("Iran" "NOUN" "PLACE")
|
|
("Hong Kong" "NOUN" "PLACE")
|
|
("Hollywood" "NOUN" "PLACE")
|
|
("Hell" "NOUN" "PLACE")
|
|
("headquarters" "NOUN" "PLACE")
|
|
("Gotham City" "NOUN" "PLACE")
|
|
("Gasoline Alley" "NOUN" "PLACE")
|
|
("Endsville" "NOUN" "PLACE")
|
|
("Dime Box" "NOUN" "PLACE")
|
|
("Death Valley" "NOUN" "PLACE")
|
|
("Dallas" "NOUN" "PLACE")
|
|
("Cyberworld" "NOUN" "PLACE")
|
|
("Chicago" "NOUN" "PLACE")
|
|
("Cheyenne Mountain" "NOUN" "PLACE")
|
|
("Callahan's Place" "NOUN" "PLACE")
|
|
("Buckingham Palace" "NOUN" "PLACE")
|
|
("Berlin" "NOUN" "PLACE")
|
|
("Berkeley" "NOUN" "PLACE")
|
|
("Baghdad" "NOUN" "PLACE")
|
|
("Austin" "NOUN" "PLACE")
|
|
("Atlantis" "NOUN" "PLACE")
|
|
("Alpha Complex" "NOUN" "PLACE")
|
|
("Alpha Centauri" "NOUN" "PLACE")
|
|
("Afghanistan" "NOUN" "PLACE")
|
|
("(not available at your clearance)" "NOUN" "PLACE")
|
|
("Blue Screen of Death" "NOUN" "")
|
|
("zero-day exploit" "NOUN" "")
|
|
("venereal disease" "NOUN" "")
|
|
("lightsaber" "NOUN" "")
|
|
("goblin" "NOUN" "")
|
|
("iPhone" "NOUN" "")
|
|
("Android phone" "NOUN" "")
|
|
("iPad" "NOUN" "")
|
|
("iPod" "NOUN" "")
|
|
("frood" "NOUN" "")
|
|
("propeller" "NOUN" "")
|
|
("nanite" "NOUN" "")
|
|
("laptop" "NOUN" "")
|
|
("iMac" "NOUN" "")
|
|
("dog" "NOUN" "")
|
|
("Segway" "NOUN" "")
|
|
("MP3" "NOUN" "")
|
|
("Handheld" "NOUN" "")
|
|
("Deep One" "NOUN" "")
|
|
("DVD" "NOUN" "")
|
|
("CD-ROM" "NOUN" "")
|
|
("angel" "NOUN" "")
|
|
("tuba" "NOUN" "")
|
|
("piccolo" "NOUN" "")
|
|
("additive" "NOUN" "")
|
|
("terminal" "NOUN" "")
|
|
("toad" "NOUN" "")
|
|
("amphibian" "NOUN" "")
|
|
("icon" "NOUN" "")
|
|
("ukelele" "NOUN" "")
|
|
("INWO deck" "NOUN" "")
|
|
("Zulu" "NOUN" "")
|
|
("yak" "NOUN" "")
|
|
("whip" "NOUN" "")
|
|
("wheel" "NOUN" "")
|
|
("wand" "NOUN" "")
|
|
("volleyball" "NOUN" "")
|
|
("virus" "NOUN" "")
|
|
("van" "NOUN" "")
|
|
("Uzi" "NOUN" "")
|
|
("user's manual" "NOUN" "")
|
|
("typewriter" "NOUN" "")
|
|
("trumpet" "NOUN" "")
|
|
("trolley" "NOUN" "")
|
|
("tree" "NOUN" "")
|
|
("treasure chest" "NOUN" "")
|
|
("transmitter" "NOUN" "")
|
|
("traitor" "NOUN" "")
|
|
("tornado" "NOUN" "")
|
|
("toast" "NOUN" "")
|
|
("textbook" "NOUN" "")
|
|
("termite" "NOUN" "")
|
|
("tennis ball" "NOUN" "")
|
|
("television" "NOUN" "")
|
|
("telegram" "NOUN" "")
|
|
("teddy bear" "NOUN" "")
|
|
("sword" "NOUN" "")
|
|
("surfboard" "NOUN" "")
|
|
("submarine" "NOUN" "")
|
|
("spider" "NOUN" "")
|
|
("spark plug" "NOUN" "")
|
|
("skillet" "NOUN" "")
|
|
("ski lift" "NOUN" "")
|
|
("skateboard" "NOUN" "")
|
|
("shoggoth" "NOUN" "")
|
|
("shark" "NOUN" "")
|
|
("sex toy" "NOUN" "")
|
|
("sculpture" "NOUN" "")
|
|
("scuba mask" "NOUN" "")
|
|
("screwdriver" "NOUN" "")
|
|
("scraper" "NOUN" "")
|
|
("scenario" "NOUN" "")
|
|
("saxophone" "NOUN" "")
|
|
("saber" "NOUN" "")
|
|
("rom chip" "NOUN" "")
|
|
("ring" "NOUN" "")
|
|
("rescuer" "NOUN" "")
|
|
("razor" "NOUN" "")
|
|
("railroad" "NOUN" "")
|
|
("radio" "NOUN" "")
|
|
("racquetball" "NOUN" "")
|
|
("pyramid" "NOUN" "")
|
|
("puppy" "NOUN" "")
|
|
("pterodactyl" "NOUN" "")
|
|
("ptarmigan" "NOUN" "")
|
|
("power drill" "NOUN" "")
|
|
("pop tart" "NOUN" "")
|
|
("playtester" "NOUN" "")
|
|
("plant" "NOUN" "")
|
|
("pit viper" "NOUN" "")
|
|
("pistol" "NOUN" "")
|
|
("piranha" "NOUN" "")
|
|
("photocopy" "NOUN" "")
|
|
("phone" "NOUN" "")
|
|
("phased plasma rifle" "NOUN" "")
|
|
("petunia" "NOUN" "")
|
|
("penguin" "NOUN" "")
|
|
("pendant" "NOUN" "")
|
|
("password" "NOUN" "")
|
|
("password file" "NOUN" "")
|
|
("passport" "NOUN" "")
|
|
("paper clip" "NOUN" "")
|
|
("paintbrush" "NOUN" "")
|
|
("paddle" "NOUN" "")
|
|
("ostrich" "NOUN" "")
|
|
("olive" "NOUN" "")
|
|
("octopus" "NOUN" "")
|
|
("oar" "NOUN" "")
|
|
("mouse" "NOUN" "")
|
|
("orc" "NOUN" "")
|
|
("motorcycle" "NOUN" "")
|
|
("mosquito" "NOUN" "")
|
|
("message" "NOUN" "")
|
|
("mason jar" "NOUN" "")
|
|
("manuscript" "NOUN" "")
|
|
("mallet" "NOUN" "")
|
|
("machine gun" "NOUN" "")
|
|
("light bulb" "NOUN" "")
|
|
("lamp" "NOUN" "")
|
|
("kumquat" "NOUN" "")
|
|
("krugerrand" "NOUN" "")
|
|
("Klingon" "NOUN" "")
|
|
("kitten" "NOUN" "")
|
|
("jukebox" "NOUN" "")
|
|
("jet ski" "NOUN" "")
|
|
("jet" "NOUN" "")
|
|
("jellybean" "NOUN" "")
|
|
("insect" "NOUN" "")
|
|
("infant" "NOUN" "")
|
|
("implement" "NOUN" "")
|
|
("iguana" "NOUN" "")
|
|
("ID card" "NOUN" "")
|
|
("ice cream" "NOUN" "")
|
|
("hypodermic" "NOUN" "")
|
|
("hot tub" "NOUN" "")
|
|
("hemisphere" "NOUN" "")
|
|
("helmet" "NOUN" "")
|
|
("hat-rack" "NOUN" "")
|
|
("hat" "NOUN" "")
|
|
("hammer" "NOUN" "")
|
|
("gyroslugger" "NOUN" "")
|
|
("grimoire" "NOUN" "")
|
|
("grasshopper" "NOUN" "")
|
|
("goldfish" "NOUN" "")
|
|
("geographer" "NOUN" "")
|
|
("frog" "NOUN" "")
|
|
("frame" "NOUN" "")
|
|
("football" "NOUN" "")
|
|
("fly" "NOUN" "")
|
|
("floppy disk" "NOUN" "")
|
|
("flag" "NOUN" "")
|
|
("file" "NOUN" "")
|
|
("eye" "NOUN" "")
|
|
("engine" "NOUN" "")
|
|
("elephant" "NOUN" "")
|
|
("duck" "NOUN" "")
|
|
("drug" "NOUN" "")
|
|
("dragon" "NOUN" "")
|
|
("document" "NOUN" "")
|
|
("disk drive" "NOUN" "")
|
|
("dinosaur" "NOUN" "")
|
|
("dictator" "NOUN" "")
|
|
("dice" "NOUN" "")
|
|
("dictaphone" "NOUN" "")
|
|
("diamond" "NOUN" "")
|
|
("devil" "NOUN" "")
|
|
("demon" "NOUN" "")
|
|
("cyberdeck" "NOUN" "")
|
|
("cummerbund" "NOUN" "")
|
|
("crystal" "NOUN" "")
|
|
("cow" "NOUN" "")
|
|
("couch" "NOUN" "")
|
|
("cork" "NOUN" "")
|
|
("computer" "NOUN" "")
|
|
("compact disc" "NOUN" "")
|
|
("coke can" "NOUN" "")
|
|
("code wheel" "NOUN" "")
|
|
("cockroach" "NOUN" "")
|
|
("club" "NOUN" "")
|
|
("chicken" "NOUN" "")
|
|
("chair" "NOUN" "")
|
|
("chainsaw" "NOUN" "")
|
|
("cauliflower" "NOUN" "")
|
|
("cat" "NOUN" "")
|
|
("cash" "NOUN" "")
|
|
("carnation" "NOUN" "")
|
|
("capsule" "NOUN" "")
|
|
("cannibal" "NOUN" "")
|
|
("cactus" "NOUN" "")
|
|
("cable" "NOUN" "")
|
|
("button" "NOUN" "")
|
|
("business card" "NOUN" "")
|
|
("bowling ball" "NOUN" "")
|
|
("book" "NOUN" "")
|
|
("boat" "NOUN" "")
|
|
("blueprint" "NOUN" "")
|
|
("beer bottle" "NOUN" "")
|
|
("BBS" "NOUN" "")
|
|
("baby" "NOUN" "")
|
|
("ash tray" "NOUN" "")
|
|
("amulet" "NOUN" "")
|
|
("amethyst" "NOUN" "")
|
|
("(censored)" "NOUN" "")
|
|
("911 file" "NOUN" "")
|
|
("Milhouse Vanhouten" "NOUN" "PROPER")
|
|
("Maggie Simpson" "NOUN" "PROPER")
|
|
("Marge Simpson" "NOUN" "PROPER")
|
|
("Lisa Simpson" "NOUN" "PROPER")
|
|
("Homer Simpson" "NOUN" "PROPER")
|
|
("Bart Simpson" "NOUN" "PROPER")
|
|
("Magic: the Gathering" "NOUN" "PROPER")
|
|
("the Number of the Beast" "NOUN" "PROPER")
|
|
("Hector Yzmin" "NOUN" "PROPER")
|
|
("William Moore" "NOUN" "PROPER")
|
|
("Sean Connery" "NOUN" "PROPER")
|
|
("Number Two" "NOUN" "PROPER")
|
|
("Aminedjahd" "NOUN" "PROPER")
|
|
("Al-Zarqarwi" "NOUN" "PROPER")
|
|
("Bilbo Baggins" "NOUN" "PROPER")
|
|
("Frodo Baggins" "NOUN" "PROPER")
|
|
("the One Ring" "NOUN" "PROPER")
|
|
("the Heart of Gold" "NOUN" "PROPER")
|
|
("Arthur Dent" "NOUN" "PROPER")
|
|
("Ford Prefect" "NOUN" "PROPER")
|
|
("O.J. Simpson" "NOUN" "PROPER")
|
|
("Tuos Mater" "NOUN" "PROPER")
|
|
("Tom Clancy" "NOUN" "PROPER")
|
|
("Timothy Leary" "NOUN" "PROPER")
|
|
("the Pentagon" "NOUN" "PROPER")
|
|
("the network guy" "NOUN" "PROPER")
|
|
("Tom Petty" "NOUN" "PROPER")
|
|
("Spaceman Spiff" "NOUN" "PROPER")
|
|
("John Gray, Ph.D" "NOUN" "PROPER")
|
|
("President Clinton" "NOUN" "PROPER")
|
|
("Zorro" "NOUN" "PROPER")
|
|
("Paul" "NOUN" "PROPER")
|
|
("Nancy Reagan" "NOUN" "PROPER")
|
|
("Biff" "NOUN" "PROPER")
|
|
("Beevis" "NOUN" "PROPER")
|
|
("Butt-head" "NOUN" "PROPER")
|
|
("Moses" "NOUN" "PROPER")
|
|
("Mohammed" "NOUN" "PROPER")
|
|
("Margaret Thatcher" "NOUN" "PROPER")
|
|
("Manuel Noriega" "NOUN" "PROPER")
|
|
("George Bush, Jr." "NOUN" "PROPER")
|
|
("Madonna" "NOUN" "PROPER")
|
|
("Mayor McCheese" "NOUN" "PROPER")
|
|
("Jesus" "NOUN" "PROPER")
|
|
("Mayor Dinkens" "NOUN" "PROPER")
|
|
("Big Dick" "NOUN" "PROPER")
|
|
("Idi Amin" "NOUN" "PROPER")
|
|
("Hillary" "NOUN" "PROPER")
|
|
("Ho Chi Minh" "NOUN" "PROPER")
|
|
("Hobbes" "NOUN" "PROPER")
|
|
("Gorbachev" "NOUN" "PROPER")
|
|
("George" "NOUN" "PROPER")
|
|
("Gary Shandling" "NOUN" "PROPER")
|
|
("Flamin' Jane" "NOUN" "PROPER")
|
|
("Ferdinand Marcos" "NOUN" "PROPER")
|
|
("Michael Jackson" "NOUN" "PROPER")
|
|
("Edgar Rice Burroughs" "NOUN" "PROPER")
|
|
("Eddie Murphy" "NOUN" "PROPER")
|
|
("Dr. Destructo" "NOUN" "PROPER")
|
|
("Dan Quayle" "NOUN" "PROPER")
|
|
("Dogbert" "NOUN" "PROPER")
|
|
("Ratbert" "NOUN" "PROPER")
|
|
("Chow Yun Fat" "NOUN" "PROPER")
|
|
("Calvin" "NOUN" "PROPER")
|
|
("a shadowy figure" "NOUN" "PROPER")
|
|
("William Kida" "NOUN" "PROPER")
|
|
("Alfred E. Neumann" "NOUN" "PROPER")
|
|
("Agent Orange" "NOUN" "PROPER")
|
|
("The Illigitimus" "NOUN" "PROPER")
|
|
("the Powerpuff Girls" "NOUN" "PROPER")
|
|
("the Dixie Chicks" "NOUN" "PROPER")
|
|
("the Crocodile Hunter" "NOUN" "PROPER")
|
|
("the Bachelorette" "NOUN" "PROPER")
|
|
("the Bachelor" "NOUN" "PROPER")
|
|
("the American Idol" "NOUN" "PROPER")
|
|
("Tony Blair" "NOUN" "PROPER")
|
|
("T'Pol" "NOUN" "PROPER")
|
|
("Sponge Bob Square Pants" "NOUN" "PROPER")
|
|
("Saddam Hussein" "NOUN" "PROPER")
|
|
("President Bush" "NOUN" "PROPER")
|
|
("President Bartlett" "NOUN" "PROPER")
|
|
("Peter Jackson" "NOUN" "PROPER")
|
|
("Osama bin-Laden" "NOUN" "PROPER")
|
|
("Neo" "NOUN" "PROPER")
|
|
("LeBron James" "NOUN" "PROPER")
|
|
("Karl Rove" "NOUN" "PROPER")
|
|
("Jon Stewart" "NOUN" "PROPER")
|
|
("John Ashcroft" "NOUN" "PROPER")
|
|
("Joe Montana" "NOUN" "PROPER")
|
|
("Jay Leno" "NOUN" "PROPER")
|
|
("Jacques Chirac" "NOUN" "PROPER")
|
|
("Hillary Clinton" "NOUN" "PROPER")
|
|
("Harvey Birdman" "NOUN" "PROPER")
|
|
("Harry Potter" "NOUN" "PROPER")
|
|
("Dick Cheney" "NOUN" "PROPER")
|
|
("Condoleeza Rice" "NOUN" "PROPER")
|
|
("Captain Archer" "NOUN" "PROPER")
|
|
("Buffy" "NOUN" "PROPER")
|
|
("Bud Selig" "NOUN" "PROPER")
|
|
("Britney Spears" "NOUN" "PROPER")
|
|
("Bill O'Reilly" "NOUN" "PROPER")
|
|
("Bill Clinton" "NOUN" "PROPER")
|
|
("Barry Bonds" "NOUN" "PROPER")
|
|
("Arnold Schwarzenegger" "NOUN" "PROPER")
|
|
("Angel" "NOUN" "PROPER")
|
|
("Al-Qaeda" "NOUN" "PROPER")
|
|
("Archangel Gabriel" "NOUN" "PROPER")
|
|
("Asmodeus" "NOUN" "PROPER")
|
|
("the Archdean" "NOUN" "PROPER")
|
|
("Tristero" "NOUN" "PROPER")
|
|
("Jimmy Hoffa" "NOUN" "PROPER")
|
|
("Donovan's Brain" "NOUN" "PROPER")
|
|
("Zonker" "NOUN" "PROPER")
|
|
("Zeus" "NOUN" "PROPER")
|
|
("Zaphod Beeblebrox" "NOUN" "PROPER")
|
|
("your sister" "NOUN" "PROPER")
|
|
("your mother" "NOUN" "PROPER")
|
|
("your father" "NOUN" "PROPER")
|
|
("your evil twin" "NOUN" "PROPER")
|
|
("your brother" "NOUN" "PROPER")
|
|
("yo' mama" "NOUN" "PROPER")
|
|
("Winston Churchill" "NOUN" "PROPER")
|
|
("Weird Al" "NOUN" "PROPER")
|
|
("Uncle Duke" "NOUN" "PROPER")
|
|
("Tweety-Bird" "NOUN" "PROPER")
|
|
("Tiny Tim" "NOUN" "PROPER")
|
|
("Thor" "NOUN" "PROPER")
|
|
("the vice squad" "NOUN" "PROPER")
|
|
("the Secret Service" "NOUN" "PROPER")
|
|
("the Secret Master" "NOUN" "PROPER")
|
|
("the ninja" "NOUN" "PROPER")
|
|
("the Legion of Doom" "NOUN" "PROPER")
|
|
("the Joker" "NOUN" "PROPER")
|
|
("The Illuminati" "NOUN" "PROPER")
|
|
("the Hand" "NOUN" "PROPER")
|
|
("Sir Paul" "NOUN" "PROPER")
|
|
("the Discordian" "NOUN" "PROPER")
|
|
("the Computer" "NOUN" "PROPER")
|
|
("the A.C.L.U." "NOUN" "PROPER")
|
|
("Superman" "NOUN" "PROPER")
|
|
("Steven Spielberg" "NOUN" "PROPER")
|
|
("Steve" "NOUN" "PROPER")
|
|
("Squad 23" "NOUN" "PROPER")
|
|
("Spiderman" "NOUN" "PROPER")
|
|
("Snoopy" "NOUN" "PROPER")
|
|
("Sir Lancelot" "NOUN" "PROPER")
|
|
("Scrooge" "NOUN" "PROPER")
|
|
("Ronald Reagan" "NOUN" "PROPER")
|
|
("Roger Rabbit" "NOUN" "PROPER")
|
|
("Rocky" "NOUN" "PROPER")
|
|
("Robert Heinlein" "NOUN" "PROPER")
|
|
("Robby the Robot" "NOUN" "PROPER")
|
|
("Ringo" "NOUN" "PROPER")
|
|
("Rambo" "NOUN" "PROPER")
|
|
("Princess Leia" "NOUN" "PROPER")
|
|
("Perry Mason" "NOUN" "PROPER")
|
|
("Paul Newman" "NOUN" "PROPER")
|
|
("Oliver North" "NOUN" "PROPER")
|
|
("Obi-Wan Kenobi" "NOUN" "PROPER")
|
|
("Norman Bates" "NOUN" "PROPER")
|
|
("Nixon" "NOUN" "PROPER")
|
|
("Nelson Mandela" "NOUN" "PROPER")
|
|
("Mr. Spock" "NOUN" "PROPER")
|
|
("Mr. Science" "NOUN" "PROPER")
|
|
("Mr. Ed" "NOUN" "PROPER")
|
|
("Mr. Bill" "NOUN" "PROPER")
|
|
("Mick Jagger" "NOUN" "PROPER")
|
|
("Michael Jordan" "NOUN" "PROPER")
|
|
("Luke Skywalker" "NOUN" "PROPER")
|
|
("Lex Luthor" "NOUN" "PROPER")
|
|
("King Tut" "NOUN" "PROPER")
|
|
("King Arthur" "NOUN" "PROPER")
|
|
("Joseph Stalin" "NOUN" "PROPER")
|
|
("Johnny-B-Gud" "NOUN" "PROPER")
|
|
("Jimmy Carter" "NOUN" "PROPER")
|
|
("Jack the Ripper" "NOUN" "PROPER")
|
|
("Isaac Asimov" "NOUN" "PROPER")
|
|
("Internal Security" "NOUN" "PROPER")
|
|
("Hunter S. Thompson" "NOUN" "PROPER")
|
|
("Hulk Hogan" "NOUN" "PROPER")
|
|
("Hitler" "NOUN" "PROPER")
|
|
("Han Solo" "NOUN" "PROPER")
|
|
("Hamlet" "NOUN" "PROPER")
|
|
("Gumby" "NOUN" "PROPER")
|
|
("Grandmother" "NOUN" "PROPER")
|
|
("Gandhi" "NOUN" "PROPER")
|
|
("Gerald Ford" "NOUN" "PROPER")
|
|
("George Lucas" "NOUN" "PROPER")
|
|
("Flaming Carrot" "NOUN" "PROPER")
|
|
("Fearless Leader" "NOUN" "PROPER")
|
|
("Evil Stevie" "NOUN" "PROPER")
|
|
("Erik Bloodaxe" "NOUN" "PROPER")
|
|
("Elvis" "NOUN" "PROPER")
|
|
("Dracula" "NOUN" "PROPER")
|
|
("Uncle Bob" "NOUN" "PROPER")
|
|
("Dave Letterman" "NOUN" "PROPER")
|
|
("Darth Vader" "NOUN" "PROPER")
|
|
("Dilbert" "NOUN" "PROPER")
|
|
("Cthulhu" "NOUN" "PROPER")
|
|
("Charlie Brown" "NOUN" "PROPER")
|
|
("Captain Nemo" "NOUN" "PROPER")
|
|
("Captain Kirk" "NOUN" "PROPER")
|
|
("Captain America" "NOUN" "PROPER")
|
|
("Captain Ahab" "NOUN" "PROPER")
|
|
("Bullwinkle" "NOUN" "PROPER")
|
|
("Buck Rogers" "NOUN" "PROPER")
|
|
("Batman" "NOUN" "PROPER")
|
|
("Aladdin" "NOUN" "PROPER")
|
|
("Ali Baba" "NOUN" "PROPER")
|
|
("Albert Einstein" "NOUN" "PROPER")
|
|
("Bill Gates" "NOUN" "PROPER")
|
|
("Abraham Lincoln" "NOUN" "PROPER")
|
|
("Abdul Al-Azrad" "NOUN" "PROPER")
|
|
("a dead rock star" "NOUN" "PROPER")
|
|
("a long-lost uncle" "NOUN" "PROPER")
|
|
("a dead relative" "NOUN" "PROPER")
|
|
("007" "NOUN" "PROPER")
|
|
("frood" "MODIFIER" "")
|
|
("too" "MODIFIER" "")
|
|
("slightly" "MODIFIER" "")
|
|
("secretly" "MODIFIER" "")
|
|
("probably" "MODIFIER" "")
|
|
("not" "MODIFIER" "")
|
|
("much too" "MODIFIER" "")
|
|
("far too" "MODIFIER" "")
|
|
("disgustingly" "MODIFIER" "")
|
|
("definitely" "MODIFIER" "")
|
|
("barely" "MODIFIER" "")
|
|
("apparently" "MODIFIER" "")
|
|
("In accordance with prophecy," "INTERJECTION" "")
|
|
("For your information," "INTERJECTION" "")
|
|
("Amazing!" "INTERJECTION" "")
|
|
("Tally ho!" "INTERJECTION" "")
|
|
("Praise the Lord!" "INTERJECTION" "")
|
|
("Huzzah!" "INTERJECTION" "")
|
|
("Engage!" "INTERJECTION" "")
|
|
("Behold!" "INTERJECTION" "")
|
|
("Hark!" "INTERJECTION" "")
|
|
("Calling all cars!" "INTERJECTION" "")
|
|
("All hands on deck!" "INTERJECTION" "")
|
|
("We suspect that" "INTERJECTION" "")
|
|
("Warning!" "INTERJECTION" "")
|
|
("Usual sources confirm that" "INTERJECTION" "")
|
|
("Urgent!" "INTERJECTION" "")
|
|
("Unsubstantiated rumor:" "INTERJECTION" "")
|
|
("The surgeon general warns that" "INTERJECTION" "")
|
|
("Terminate operation if" "INTERJECTION" "")
|
|
("Step up operation." "INTERJECTION" "")
|
|
("Please investigate the report that" "INTERJECTION" "")
|
|
("Pentagon officials deny that" "INTERJECTION" "")
|
|
("Our reporters claim that" "INTERJECTION" "")
|
|
("Our foes believe that" "INTERJECTION" "")
|
|
("Oral Roberts dreamed that" "INTERJECTION" "")
|
|
("Observe and report if" "INTERJECTION" "")
|
|
("Most people surveyed believe that" "INTERJECTION" "")
|
|
("It is not true that" "INTERJECTION" "")
|
|
("It appears that" "INTERJECTION" "")
|
|
("It is imperative that" "INTERJECTION" "")
|
|
("Ignore this message." "INTERJECTION" "")
|
|
("Ignore previous message." "INTERJECTION" "")
|
|
("Follow plan x if" "INTERJECTION" "")
|
|
("Fnord!" "INTERJECTION" "")
|
|
("Enemy agents now know that" "INTERJECTION" "")
|
|
("Effective immediately," "INTERJECTION" "")
|
|
("E.F. Hutton says" "INTERJECTION" "")
|
|
("Determine whether" "INTERJECTION" "")
|
|
("Delete all evidence that" "INTERJECTION" "")
|
|
("Contrary to popular belief," "INTERJECTION" "")
|
|
("Confirmed report:" "INTERJECTION" "")
|
|
("Alert all stations!" "INTERJECTION" "")
|
|
("Advance code sequence." "INTERJECTION" "")
|
|
("Abort previous sequence." "INTERJECTION" "")
|
|
("Abort immediately unless" "INTERJECTION" "")
|
|
("4 out of 5 dentists recommend that" "INTERJECTION" "")
|
|
("whip" "INFINITIVE" "")
|
|
("transform" "INFINITIVE" "")
|
|
("torture" "INFINITIVE" "")
|
|
("torment" "INFINITIVE" "")
|
|
("swim" "INFINITIVE" "")
|
|
("swat" "INFINITIVE" "")
|
|
("swallow" "INFINITIVE" "")
|
|
("subvert" "INFINITIVE" "")
|
|
("stroke" "INFINITIVE" "")
|
|
("squeezes" "INFINITIVE" "")
|
|
("spank" "INFINITIVE" "")
|
|
("serve" "INFINITIVE" "")
|
|
("save" "INFINITIVE" "")
|
|
("resurrect" "INFINITIVE" "")
|
|
("replace" "INFINITIVE" "")
|
|
("remove" "INFINITIVE" "")
|
|
("reinforce" "INFINITIVE" "")
|
|
("rebuild" "INFINITIVE" "")
|
|
("pitche" "INFINITIVE" "")
|
|
("pervert" "INFINITIVE" "")
|
|
("persuade" "INFINITIVE" "")
|
|
("molest" "INFINITIVE" "")
|
|
("massage" "INFINITIVE" "")
|
|
("love" "INFINITIVE" "")
|
|
("leave" "INFINITIVE" "")
|
|
("kiss" "INFINITIVE" "")
|
|
("kill" "INFINITIVE" "")
|
|
("join" "INFINITIVE" "")
|
|
("inherits" "INFINITIVE" "")
|
|
("infiltrate" "INFINITIVE" "")
|
|
("imitate" "INFINITIVE" "")
|
|
("help" "INFINITIVE" "")
|
|
("hassle" "INFINITIVE" "")
|
|
("harass" "INFINITIVE" "")
|
|
("handle" "INFINITIVE" "")
|
|
("fondle" "INFINITIVE" "")
|
|
("enter" "INFINITIVE" "")
|
|
("eat" "INFINITIVE" "")
|
|
("dissolve" "INFINITIVE" "")
|
|
("disfigure" "INFINITIVE" "")
|
|
("destroy" "INFINITIVE" "")
|
|
("deliver" "INFINITIVE" "")
|
|
("convert" "INFINITIVE" "")
|
|
("control" "INFINITIVE" "")
|
|
("contaminate" "INFINITIVE" "")
|
|
("command" "INFINITIVE" "")
|
|
("catch" "INFINITIVE" "")
|
|
("bury" "INFINITIVE" "")
|
|
("bother" "INFINITIVE" "")
|
|
("boggle" "INFINITIVE" "")
|
|
("berate" "INFINITIVE" "")
|
|
("avoid" "INFINITIVE" "")
|
|
("amuse" "INFINITIVE" "")
|
|
("amorphous" "ADJECTIVE" "")
|
|
("retarded" "ADJECTIVE" "")
|
|
("foamy" "ADJECTIVE" "")
|
|
("English" "ADJECTIVE" "")
|
|
("American" "ADJECTIVE" "")
|
|
("German" "ADJECTIVE" "")
|
|
("upgraded" "ADJECTIVE" "")
|
|
("rugose" "ADJECTIVE" "")
|
|
("mythical" "ADJECTIVE" "")
|
|
("horrific" "ADJECTIVE" "")
|
|
("frightening" "ADJECTIVE" "")
|
|
("enhanced" "ADJECTIVE" "")
|
|
("corruscating" "ADJECTIVE" "")
|
|
("broken" "ADJECTIVE" "")
|
|
("beautiful" "ADJECTIVE" "")
|
|
("Martian" "ADJECTIVE" "")
|
|
("French" "ADJECTIVE" "")
|
|
("perfectly ordinary" "ADJECTIVE" "")
|
|
("plump" "ADJECTIVE" "")
|
|
("musical" "ADJECTIVE" "")
|
|
("lumpy" "ADJECTIVE" "")
|
|
("frenzied" "ADJECTIVE" "")
|
|
("dyslexic" "ADJECTIVE" "")
|
|
("dancing" "ADJECTIVE" "")
|
|
("cosmic" "ADJECTIVE" "")
|
|
("conquering" "ADJECTIVE" "")
|
|
("anorexic" "ADJECTIVE" "")
|
|
("agnostic" "ADJECTIVE" "")
|
|
("diseased" "ADJECTIVE" "")
|
|
("flaming" "ADJECTIVE" "")
|
|
("polluted" "ADJECTIVE" "")
|
|
("drugged" "ADJECTIVE" "")
|
|
("tax-free" "ADJECTIVE" "")
|
|
("illegal" "ADJECTIVE" "")
|
|
("young" "ADJECTIVE" "")
|
|
("worthless" "ADJECTIVE" "")
|
|
("wimpy" "ADJECTIVE" "")
|
|
("white" "ADJECTIVE" "")
|
|
("well-dressed" "ADJECTIVE" "")
|
|
("wealthy" "ADJECTIVE" "")
|
|
("vivid" "ADJECTIVE" "")
|
|
("virginal" "ADJECTIVE" "")
|
|
("vibrant" "ADJECTIVE" "")
|
|
("vampiric" "ADJECTIVE" "")
|
|
("vacillating" "ADJECTIVE" "")
|
|
("vacant" "ADJECTIVE" "")
|
|
("user-serviceable" "ADJECTIVE" "")
|
|
("user-friendly" "ADJECTIVE" "")
|
|
("untouchable" "ADJECTIVE" "")
|
|
("ugly" "ADJECTIVE" "")
|
|
("tubular" "ADJECTIVE" "")
|
|
("treacherous" "ADJECTIVE" "")
|
|
("transient" "ADJECTIVE" "")
|
|
("tiny" "ADJECTIVE" "")
|
|
("tin-plated" "ADJECTIVE" "")
|
|
("throbbing" "ADJECTIVE" "")
|
|
("temporary" "ADJECTIVE" "")
|
|
("sweet" "ADJECTIVE" "")
|
|
("stoned" "ADJECTIVE" "")
|
|
("squamous" "ADJECTIVE" "")
|
|
("splendid" "ADJECTIVE" "")
|
|
("solid gold" "ADJECTIVE" "")
|
|
("smoking" "ADJECTIVE" "")
|
|
("sluggish" "ADJECTIVE" "")
|
|
("slippery" "ADJECTIVE" "")
|
|
("slimy" "ADJECTIVE" "")
|
|
("slime-dripping" "ADJECTIVE" "")
|
|
("slick" "ADJECTIVE" "")
|
|
("sleeping" "ADJECTIVE" "")
|
|
("slack-producing" "ADJECTIVE" "")
|
|
("skeptical" "ADJECTIVE" "")
|
|
("sizzling" "ADJECTIVE" "")
|
|
("sinister" "ADJECTIVE" "")
|
|
("sin-ridden" "ADJECTIVE" "")
|
|
("silver" "ADJECTIVE" "")
|
|
("Siamese" "ADJECTIVE" "")
|
|
("shifty" "ADJECTIVE" "")
|
|
("shiftless" "ADJECTIVE" "")
|
|
("sexy" "ADJECTIVE" "")
|
|
("screaming" "ADJECTIVE" "")
|
|
("Russian" "ADJECTIVE" "")
|
|
("rubber" "ADJECTIVE" "")
|
|
("reincarnated" "ADJECTIVE" "")
|
|
("reformed" "ADJECTIVE" "")
|
|
("red" "ADJECTIVE" "")
|
|
("radioactive" "ADJECTIVE" "")
|
|
("radical" "ADJECTIVE" "")
|
|
("putrid" "ADJECTIVE" "")
|
|
("purple" "ADJECTIVE" "")
|
|
("pulsating" "ADJECTIVE" "")
|
|
("puce" "ADJECTIVE" "")
|
|
("protozoan" "ADJECTIVE" "")
|
|
("pregnant" "ADJECTIVE" "")
|
|
("poor" "ADJECTIVE" "")
|
|
("pickled" "ADJECTIVE" "")
|
|
("persuasive" "ADJECTIVE" "")
|
|
("orbital" "ADJECTIVE" "")
|
|
("opulent" "ADJECTIVE" "")
|
|
("opaque" "ADJECTIVE" "")
|
|
("oozing" "ADJECTIVE" "")
|
|
("oily" "ADJECTIVE" "")
|
|
("nuclear" "ADJECTIVE" "")
|
|
("naughty" "ADJECTIVE" "")
|
|
("mutant" "ADJECTIVE" "")
|
|
("most influential" "ADJECTIVE" "")
|
|
("morbid" "ADJECTIVE" "")
|
|
("medium-sized" "ADJECTIVE" "")
|
|
("mauve" "ADJECTIVE" "")
|
|
("maniacal" "ADJECTIVE" "")
|
|
("lovely" "ADJECTIVE" "")
|
|
("lizard-like" "ADJECTIVE" "")
|
|
("lecherous" "ADJECTIVE" "")
|
|
("Japanese" "ADJECTIVE" "")
|
|
("insane" "ADJECTIVE" "")
|
|
("innocent" "ADJECTIVE" "")
|
|
("indictable" "ADJECTIVE" "")
|
|
("impulsive" "ADJECTIVE" "")
|
|
("impudent" "ADJECTIVE" "")
|
|
("impotent" "ADJECTIVE" "")
|
|
("imitation" "ADJECTIVE" "")
|
|
("illuminated" "ADJECTIVE" "")
|
|
("humming" "ADJECTIVE" "")
|
|
("hot" "ADJECTIVE" "")
|
|
("highest" "ADJECTIVE" "")
|
|
("high" "ADJECTIVE" "")
|
|
("green" "ADJECTIVE" "")
|
|
("greedy" "ADJECTIVE" "")
|
|
("granular" "ADJECTIVE" "")
|
|
("gold" "ADJECTIVE" "")
|
|
("gnarly" "ADJECTIVE" "")
|
|
("glowing" "ADJECTIVE" "")
|
|
("gelatinous" "ADJECTIVE" "")
|
|
("furry" "ADJECTIVE" "")
|
|
("frozen" "ADJECTIVE" "")
|
|
("ferocious" "ADJECTIVE" "")
|
|
("extraterrestrial" "ADJECTIVE" "")
|
|
("explosive" "ADJECTIVE" "")
|
|
("expensive" "ADJECTIVE" "")
|
|
("enormous" "ADJECTIVE" "")
|
|
("embossed" "ADJECTIVE" "")
|
|
("electric" "ADJECTIVE" "")
|
|
("easy" "ADJECTIVE" "")
|
|
("drunken" "ADJECTIVE" "")
|
|
("drug-crazed" "ADJECTIVE" "")
|
|
("dizzy" "ADJECTIVE" "")
|
|
("disguised" "ADJECTIVE" "")
|
|
("dehydrated" "ADJECTIVE" "")
|
|
("deadly" "ADJECTIVE" "")
|
|
("dead" "ADJECTIVE" "")
|
|
("corrupt" "ADJECTIVE" "")
|
|
("communist" "ADJECTIVE" "")
|
|
("cold" "ADJECTIVE" "")
|
|
("Chinese" "ADJECTIVE" "")
|
|
("cautious" "ADJECTIVE" "")
|
|
("cat-like" "ADJECTIVE" "")
|
|
("cast iron" "ADJECTIVE" "")
|
|
("calculating" "ADJECTIVE" "")
|
|
("blue" "ADJECTIVE" "")
|
|
("black" "ADJECTIVE" "")
|
|
("best" "ADJECTIVE" "")
|
|
("besotted" "ADJECTIVE" "")
|
|
("balanced" "ADJECTIVE" "")
|
|
("awesome" "ADJECTIVE" "")
|
|
("avenging" "ADJECTIVE" "")
|
|
("atomic" "ADJECTIVE" "")
|
|
("arbitrary" "ADJECTIVE" "")
|
|
("ancient" "ADJECTIVE" "")
|
|
("amoeboid" "ADJECTIVE" "")
|
|
("amiable" "ADJECTIVE" "")
|
|
("alien" "ADJECTIVE" "")
|
|
("acrobatic" "ADJECTIVE" "")
|
|
("acceptable" "ADJECTIVE" "")
|
|
("orcish" "ADJECTIVE" "")
|
|
("elfen" "ADJECTIVE" "")
|
|
("dwarfen" "ADJECTIVE" "")
|
|
("23rd" "ADJECTIVE" "")
|
|
("chirps" "VERB" "ACTION")
|
|
("barks" "VERB" "ACTION")
|
|
("meows" "VERB" "ACTION")
|
|
("farts" "VERB" "ACTION")
|
|
("smells" "VERB" "ACTION")
|
|
("slices" "VERB" "ACTION")
|
|
("mows" "VERB" "ACTION")
|
|
("entombs" "VERB" "ACTION")
|
|
("divides" "VERB" "ACTION")
|
|
("conjugates" "VERB" "ACTION")
|
|
("conjures" "VERB" "ACTION")
|
|
("intimidates" "VERB" "ACTION")
|
|
("alters" "VERB" "ACTION")
|
|
("disobeys" "VERB" "ACTION")
|
|
("disguises" "VERB" "ACTION")
|
|
("pretends to be" "VERB" "ACTION")
|
|
("promotes" "VERB" "ACTION")
|
|
("assassinates" "VERB" "ACTION")
|
|
("betrays" "VERB" "ACTION")
|
|
("discovers" "VERB" "ACTION")
|
|
("allies with" "VERB" "ACTION")
|
|
("talks back to" "VERB" "ACTION")
|
|
("talks to" "VERB" "ACTION")
|
|
("abandons" "VERB" "ACTION")
|
|
("discards" "VERB" "ACTION")
|
|
("defenestrates" "VERB" "ACTION")
|
|
("titillates" "VERB" "ACTION")
|
|
("defects to" "VERB" "ACTION")
|
|
("manipulates" "VERB" "ACTION")
|
|
("outwits" "VERB" "ACTION")
|
|
("defeats" "VERB" "ACTION")
|
|
("beats" "VERB" "ACTION")
|
|
("audits" "VERB" "ACTION")
|
|
("tickles" "VERB" "ACTION")
|
|
("mates with" "VERB" "ACTION")
|
|
("stomps" "VERB" "ACTION")
|
|
("teases" "VERB" "ACTION")
|
|
("whips" "VERB" "ACTION")
|
|
("transforms" "VERB" "ACTION")
|
|
("tortures" "VERB" "ACTION")
|
|
("torments" "VERB" "ACTION")
|
|
("swats" "VERB" "ACTION")
|
|
("swallows" "VERB" "ACTION")
|
|
("subverts" "VERB" "ACTION")
|
|
("strokes" "VERB" "ACTION")
|
|
("squeezes" "VERB" "ACTION")
|
|
("spanks" "VERB" "ACTION")
|
|
("serves" "VERB" "ACTION")
|
|
("saves" "VERB" "ACTION")
|
|
("resurrects" "VERB" "ACTION")
|
|
("replaces" "VERB" "ACTION")
|
|
("removes" "VERB" "ACTION")
|
|
("reinforces" "VERB" "ACTION")
|
|
("rebuilds" "VERB" "ACTION")
|
|
("pitches" "VERB" "ACTION")
|
|
("perverts" "VERB" "ACTION")
|
|
("persuades" "VERB" "ACTION")
|
|
("molests" "VERB" "ACTION")
|
|
("massages" "VERB" "ACTION")
|
|
("leaves" "VERB" "ACTION")
|
|
("kills" "VERB" "ACTION")
|
|
("joins" "VERB" "ACTION")
|
|
("inherits" "VERB" "ACTION")
|
|
("infiltrates" "VERB" "ACTION")
|
|
("imitates" "VERB" "ACTION")
|
|
("helps" "VERB" "ACTION")
|
|
("hassles" "VERB" "ACTION")
|
|
("harasses" "VERB" "ACTION")
|
|
("handles" "VERB" "ACTION")
|
|
("fondles" "VERB" "ACTION")
|
|
("enters" "VERB" "ACTION")
|
|
("eats" "VERB" "ACTION")
|
|
("disfigures" "VERB" "ACTION")
|
|
("destroys" "VERB" "ACTION")
|
|
("delivers" "VERB" "ACTION")
|
|
("converts" "VERB" "ACTION")
|
|
("controls" "VERB" "ACTION")
|
|
("contaminates" "VERB" "ACTION")
|
|
("commands" "VERB" "ACTION")
|
|
("catches" "VERB" "ACTION")
|
|
("buries" "VERB" "ACTION")
|
|
("bothers" "VERB" "ACTION")
|
|
("boggles" "VERB" "ACTION")
|
|
("berates" "VERB" "ACTION")
|
|
("avoids" "VERB" "ACTION")
|
|
("amuses" "VERB" "ACTION")
|
|
("is ordered to" "VERB" "ABILITY")
|
|
("is afraid to" "VERB" "ABILITY")
|
|
("wants to" "VERB" "ABILITY")
|
|
("doesn't" "VERB" "ABILITY")
|
|
("will probably not" "VERB" "ABILITY")
|
|
("will probably" "VERB" "ABILITY")
|
|
("must not" "VERB" "ABILITY")
|
|
("must" "VERB" "ABILITY")
|
|
("should not" "VERB" "ABILITY")
|
|
("should" "VERB" "ABILITY")
|
|
("will not" "VERB" "ABILITY")
|
|
("will" "VERB" "ABILITY")
|
|
("cannot" "VERB" "ABILITY")
|
|
("can" "VERB" "ABILITY")
|
|
("Kansas City" "NOUN" "PLACE")
|
|
|
|
))
|
|
|
|
(defun splork ()
|
|
(let ((sentence-structures '()))
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is <adjective>"
|
|
(let ((sentence ""))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
|
|
(if (<= 2 (random 10))
|
|
(setq sentence (format "%s in %s" sentence (find-noun-with-article words)))
|
|
)
|
|
(setq sentence (format "%s is %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is not <adjective>"
|
|
(let ((sentence ""))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s" (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s" sentence (find-noun-with-article words)))
|
|
(if (<= 2 (random 10))
|
|
(setq sentence (format "%s in %s" sentence (find-noun-with-article words)))
|
|
)
|
|
(setq sentence (format "%s is not %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The <noun> from <place> will go to <place>"
|
|
(let ((sentence ""))
|
|
(setq sentence (format "%s %s from %s will go to %s" sentence (find-pos words "NOUN" 'false) (find-place-noun words) (find-place-noun words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> must take the <adjective> <noun> from <place>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s must take the %s from %s" sentence (find-pos words "NOUN" 'true) (find-place-noun words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<place> is <adjective> and the <noun> is <adjective>"
|
|
(let ((sentence (find-place-noun words)))
|
|
(setq sentence (format "%s is %s and the %s is %s" sentence (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true) (find-pos words "ADJECTIVE" 'false)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> <preposition> <place> for the <adjective> <noun>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s %s %s for the %s %s" sentence (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The <noun> from the <place> <action> the <noun>"
|
|
(let ((sentence ""))
|
|
(setq sentence (format "%s %s from the %s %s the %s" sentence (find-pos words "NOUN" 'true) (find-place-noun words) (find-pos words "VERB" 'false) (find-pos words "NOUN" 'true)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The [random(<adjective>, .5)] <noun> <action> the <adjective> <noun> [random('in ' . <place>, .2]"
|
|
(let ((sentence ""))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s %s the %s %s" sentence (find-pos words "NOUN" 'true) (find-pos words "VERB" 'false) (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true)))
|
|
(if (<= 2 (random 10))
|
|
(setq sentence (format "%s in %s" sentence (find-place-noun words)))
|
|
)
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> <preposition> <place> and <action> <noun>"
|
|
(let ((sentence ""))
|
|
(setq sentence (format "%s %s %s and %s %s" (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "VERB" 'false) (find-noun-with-article words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> takes <pronoun> [random(<adjective>, .5)] <noun> and <preposition> <place>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s takes %s" sentence (find-pos words "PRONOUN" 'false)))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s and %s %s" sentence (find-pos words "NOUN" 'true) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> <action> the [random(<adjective>, .5)] <noun>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s %s the" sentence (find-pos words "VERB" 'false)))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"<name> <action> <name> and <pronoun> [random(<adjective>, .5)] <noun>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s %s and %s" sentence (find-pos words "VERB" 'false) (find-noun-with-article words) (find-pos words "PRONOUN" 'false)))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s" sentence (find-pos words "NOUN" 'true)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"The <noun> is the [random(<adjective>,.5)] <noun>; <name> <preposition> <place>"
|
|
(let ((sentence (find-noun-with-article words)))
|
|
(setq sentence (format "%s is the" sentence))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s; %s %s %s" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"You must meet <name> at <place> and retrieve the [random(<adjective>, .5)] <noun>"
|
|
(let ((sentence "You must meet"))
|
|
(setq sentence (format "%s %s at %s and retrieve the " sentence (find-noun-with-article words) (find-place-noun words)))
|
|
(if (<= 5 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s" sentence (find-noun-with-article words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
|
|
(setq sentence-structures (append sentence-structures '( (lambda ()
|
|
"Without [random(<adjective>,.3)] <noun>, the <noun> <action> <preposition> <place>!"
|
|
(let ((sentence "Without"))
|
|
(if (<= 3 (random 10))
|
|
(setq sentence (format "%s %s" sentence (find-pos words "ADJECTIVE" 'false)))
|
|
)
|
|
(setq sentence (format "%s %s, %s %s %s %s!" sentence (find-pos words "NOUN" 'false) (find-noun-with-article words) (find-pos words "VERB" 'false) (find-pos words "PREPOSITION" 'false) (find-place-noun words)))
|
|
sentence
|
|
)))
|
|
)
|
|
)
|
|
|
|
(defalias 'func-to-call (nth (random (length sentence-structures)) sentence-structures))
|
|
(setq generated-sentence (funcall 'func-to-call))
|
|
(let ( (interjection (find-pos words "INTERJECTION" 'false)) )
|
|
(if (<= 10 (random 10))
|
|
(if ((string-match-p "!" interjection))
|
|
(setq generated-sentence (format "%s %s" interjection (sentence-case generated-sentence)))
|
|
(setq generated-sentence (format "%s %s" interjection generated-sentence))
|
|
)
|
|
(setq generated-sentence (format "%s" (sentence-case generated-sentence)))
|
|
)
|
|
)
|
|
|
|
(if (not (string-match-p "!" generated-sentence))
|
|
(setq generated-sentence (format "%s." generated-sentence))
|
|
)
|
|
generated-sentence
|
|
)
|
|
)
|
|
|
|
(defun splork-generate ()
|
|
(interactive)
|
|
(switch-to-buffer-other-window "*splork*")
|
|
(setq sentence (splork))
|
|
(goto-char (point-max))
|
|
(insert (format "%s\n" sentence))
|
|
)
|
|
|
|
(provide 'splork)
|