diff --git a/splork.lsp b/splork.lsp new file mode 100644 index 0000000..72098f6 --- /dev/null +++ b/splork.lsp @@ -0,0 +1,1259 @@ +;; splork.lsp +;; Copyright (C) 2025 William R. Moore + +;; 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 . + +(setf *random-state* (make-random-state t)) +(defvar words) +(defvar *sentence-structures*) + +(defun sentence-case (sentence) + "Changes the sentence to a capital case letter at the beginning." + (let* ((first-char (subseq (string-trim " " sentence) 0 1)) + (rest-of-sentence (subseq (string-trim " " sentence) 1))) + (format nil "~A~A" (string-upcase first-char) rest-of-sentence))) + +(defun find-pos (words pos excludeProper) + "Find the Part of Speech from the array" + (let* ((new-words '())) + (setf new-words (remove nil (mapcar (lambda (x) (and (equal pos (nth 1 x)) x)) words))) + (if (equal 'true excludeProper) + (setf new-words (remove 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" + (let* ((new-words '())) + (setf new-words (remove nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words))) + (setf new-words (remove 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" + (let* ((new-words '()) + (word "")) + (setf new-words (remove nil (mapcar (lambda (x) (and (equal "NOUN" (nth 1 x)) x)) words))) + (setf word (nth (random (length new-words)) new-words)) + + (if (string-equal "PROPER" (nth 2 word)) + (nth 0 word) + (if (string-equal "PLACE" (nth 2 word)) + (nth 0 word) + (cons "the " (nth 0 word)) + ) + ) + )) + +(setf 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") + + )) + +(setf *sentence-structures* '((lambda () + "The [random(, .5)] [random(' in ' . , .2)] is " + (let* ((sentence "")) + (if (<= 5 (random 10)) + (setf sentence (find-pos words "ADJECTIVE" 'false)) + ) + (setf sentence (format nil "~A ~A" sentence (find-pos words "NOUN" 'true))) + (if (<= 2 (random 10)) + (setf sentence (format nil "~A in ~A" sentence (find-noun-with-article words))) + ) + (setf sentence (format nil "~A is ~A" sentence (find-pos words "ADJECTIVE" 'false))) + sentence)) + (lambda () + "The [random(, .5)] [random(' in ' . , .2)] is not " + (let* ((sentence "")) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A" (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A" sentence (find-noun-with-article words))) + (if (<= 2 (random 10)) + (setf sentence (format nil "~A in ~A" sentence (find-noun-with-article words))) + ) + (setf sentence (format nil "~A is not ~A" sentence (find-pos words "ADJECTIVE" 'false))) + sentence)) + (lambda () + "The from will go to " + (let* ((sentence "")) + (setf sentence (format nil "~A ~A from ~A will go to ~A" sentence (find-pos words "NOUN" 'false) (find-place-noun words) (find-place-noun words))) + sentence)) + (lambda () + " must take the from " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A must take the ~A from ~A" sentence (find-pos words "NOUN" 'true) (find-place-noun words))) + sentence)) + (lambda () + " is and the is " + (let* ((sentence (find-place-noun words))) + (setf sentence (format nil "~A is ~A and the ~A is ~A" sentence (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true) (find-pos words "ADJECTIVE" 'false))) + sentence)) + (lambda () + " for the " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A ~A ~A for the ~A ~A" sentence (find-pos words "PREPOSITION" 'false) (find-place-noun words) (find-pos words "ADJECTIVE" 'false) (find-pos words "NOUN" 'true))) + sentence)) + (lambda () + "The from the the " + (let* ((sentence "")) + (setf sentence (format nil "~A ~A from the ~A ~A the ~A" sentence (find-pos words "NOUN" 'true) (find-place-noun words) (find-pos words "VERB" 'false) (find-pos words "NOUN" 'true))) + sentence + )) + (lambda () + "The [random(, .5)] the [random('in ' . , .2]" + (let* ((sentence "")) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A ~A the ~A ~A" 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)) + (setf sentence (format nil "~A in ~A" sentence (find-place-noun words))) + ) + sentence)) + (lambda () + " and " + (let* ((sentence "")) + (setf sentence (format nil "~A ~A ~A and ~A ~A" (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)) + (lambda () + " takes [random(, .5)] and " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A takes ~A" sentence (find-pos words "PRONOUN" 'false))) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A and ~A ~A" sentence (find-pos words "NOUN" 'true) (find-pos words "PREPOSITION" 'false) (find-place-noun words))) + sentence)) + (lambda () + " the [random(, .5)] " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A ~A the" sentence (find-pos words "VERB" 'false))) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A" sentence (find-pos words "NOUN" 'true))) + sentence)) + (lambda () + " and [random(, .5)] " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A ~A ~A and ~A" sentence (find-pos words "VERB" 'false) (find-noun-with-article words) (find-pos words "PRONOUN" 'false))) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A" sentence (find-pos words "NOUN" 'true))) + sentence)) + (lambda () + "The is the [random(,.5)] ; " + (let* ((sentence (find-noun-with-article words))) + (setf sentence (format nil "~A is the" sentence)) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A; ~A ~A ~A" sentence (find-noun-with-article words) (find-noun-with-article words) (find-pos words "PREPOSITION" 'false) (find-place-noun words))) + sentence)) + (lambda () + "You must meet at and retrieve the [random(, .5)] " + (let* ((sentence "You must meet")) + (setf sentence (format nil "~A ~A at ~A and retrieve the " sentence (find-noun-with-article words) (find-place-noun words))) + (if (<= 5 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A" sentence (find-noun-with-article words))) + sentence)) + (lambda () + "Without [random(,.3)] , the !" + (let* ((sentence "Without")) + (if (<= 3 (random 10)) + (setf sentence (format nil "~A ~A" sentence (find-pos words "ADJECTIVE" 'false))) + ) + (setf sentence (format nil "~A ~A, ~A ~A ~A ~A!" 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)))) + +(defun exec-lambda (x) + (apply (eval x) '())) + +(defun splork () + (let* ((compiled-results '()) + (generated-sentence "")) + (setf compiled-results (mapcar #'exec-lambda *sentence-structures*)) + (setf generated-sentence (nth (random (length compiled-results)) compiled-results)) + (let* ( (interjection (find-pos words "INTERJECTION" 'false)) ) + (if (<= 10 (random 10)) + (if (string-equal "!" interjection) + (setf generated-sentence (format nil "~A ~A" interjection (sentence-case generated-sentence))) + (setf generated-sentence (format nil "~A ~A" interjection generated-sentence)) + ) + (setf generated-sentence (format nil "~A" (sentence-case generated-sentence))) + ) + ) + + (if (not (string-equal "!" generated-sentence)) + (setf generated-sentence (format nil "~A." generated-sentence)) + ) + generated-sentence)) + +(print (splork)) +(exit)