2024-08-07 08:36:00 +00:00
;; 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/>.
2024-08-07 18:11:25 +00:00
( defun sentence-case ( sentence )
2024-08-07 21:15:27 +00:00
" Changes the sentence to a capital case letter at the beginning. "
2024-08-07 18:11:25 +00:00
( format " %s%s " ( upcase ( substring sentence 0 1 ) ) ( substring sentence 1 ) )
)
2024-08-07 08:36:00 +00:00
( 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 ) ) )
2024-08-07 12:24:15 +00:00
)
2024-08-07 08:36:00 +00:00
( 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 ) )
2024-08-07 18:11:25 +00:00
( if ( string-match-p " PROPER " ( nth 2 word ) )
( nth 0 word )
2024-08-07 21:15:27 +00:00
( if ( string-match-p " PLACE " ( nth 2 word ) )
( nth 0 word )
( format " the %s " ( nth 0 word ) )
)
2024-08-07 08:36:00 +00:00
)
)
2024-08-07 12:24:15 +00:00
( 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 " " " )
2024-08-07 18:11:25 +00:00
( " Nerderium " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " 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 " " " )
2024-08-07 18:11:25 +00:00
( " 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 " )
2024-08-07 12:24:15 +00:00
( " you-know-where " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " 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 " )
2024-08-07 12:24:15 +00:00
( " toxic waste dump " " NOUN " " PLACE " )
( " tavern " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " the Super Bowl " " NOUN " " PLACE " )
( " the South Pole " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " service station " " NOUN " " PLACE " )
( " same place as before " " NOUN " " PLACE " )
( " river " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " the Phoenix Project " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " outback " " NOUN " " PLACE " )
( " ocean " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " the North Pole " " NOUN " " PLACE " )
( " the Last National Bank " " NOUN " " PLACE " )
( " Hotel California " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " 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 " )
2024-08-07 18:11:25 +00:00
( " Bastille " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " back forty " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " 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 " )
2024-08-07 12:24:15 +00:00
( " my back yard " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " Munich " " NOUN " " PLACE " )
( " Moscow " " NOUN " " PLACE " )
( " Mordor " " NOUN " " PLACE " )
( " Mission Control " " NOUN " " PLACE " )
( " Middle-earth " " NOUN " " PLACE " )
( " Mars " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " Main Street " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " Los Angeles " " NOUN " " PLACE " )
( " London " " NOUN " " PLACE " )
( " Lithuania " " NOUN " " PLACE " )
2024-08-07 12:24:15 +00:00
( " left field " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " 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 " )
2024-08-07 12:24:15 +00:00
( " headquarters " " NOUN " " PLACE " )
2024-08-07 18:11:25 +00:00
( " 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 " )
2024-08-07 12:24:15 +00:00
( " (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 " " " )
( " 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 " )
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
) )
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( defun splork ( )
( let ( ( sentence-structures ' ( ) ) )
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
" The [random(<adjective>, .5)] <noun> [random(' in ' . <place>, .2)] is <adjective> "
2024-08-07 21:15:27 +00:00
( let ( ( sentence " " ) )
2024-08-07 12:24:15 +00:00
( 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 ) ) )
( 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> "
2024-08-07 21:15:27 +00:00
( let ( ( sentence " " ) )
2024-08-07 12:24:15 +00:00
( 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 ) ) )
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
" The <noun> from <place> will go to <place> "
2024-08-07 21:15:27 +00:00
( let ( ( sentence " " ) )
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
" The <noun> from the <place> <action> the <noun> "
2024-08-07 21:15:27 +00:00
( let ( ( sentence " " ) )
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
" The [random(<adjective>, .5)] <noun> <action> the <adjective> <noun> [random('in ' . <place>, .2] "
2024-08-07 21:15:27 +00:00
( let ( ( sentence " " ) )
2024-08-07 12:24:15 +00:00
( 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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
2024-08-07 18:11:25 +00:00
" <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 ) ) )
2024-08-07 12:24:15 +00:00
sentence
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( 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 " PREPOSITION " 'false ) ( find-place-noun words ) ) )
sentence
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( 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 " ACTION " '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
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 12:24:15 +00:00
( setq sentence-structures ( append sentence-structures ' ( ( lambda ( )
" <name> <action> <name> and <pronoun> [random(<adjective>, .5)] <noun> "
( let ( ( sentence ( find-noun-with-article words ) ) )
2024-08-07 18:11:25 +00:00
( setq sentence ( format " %s %s and %s " sentence ( find-pos words " VERB " 'false ) ( find-noun-with-article words ) ( find-pos words " PRONOUN " 'false ) ) )
2024-08-07 12:24:15 +00:00
( 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 " ) )
2024-08-07 18:11:25 +00:00
( setq sentence ( format " %s %s at %s and retrieve the " sentence ( find-noun-with-article words ) ( find-place-noun words ) ) )
2024-08-07 12:24:15 +00:00
( 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 ( )
2024-08-07 18:11:25 +00:00
" Without [random(<adjective>,.3)] <noun>, the <noun> <action> <preposition> <place>! "
( let ( ( sentence " Without " ) )
2024-08-07 12:24:15 +00:00
( if ( <= 3 ( random 10 ) )
( setq sentence ( format " %s %s " sentence ( find-pos words " ADJECTIVE " 'false ) ) )
)
2024-08-07 18:11:25 +00:00
( setq sentence ( format " %s, %s %s %s %s %s! " sentence ( find-noun-with-article words ) ( find-noun-with-article words ) ( find-pos words " VERB " 'false ) ( find-pos words " PREPOSITION " 'false ) ( find-place-noun words ) ) )
2024-08-07 12:24:15 +00:00
sentence
) ) )
)
)
2024-08-07 08:36:00 +00:00
2024-08-07 18:11:25 +00:00
( 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 ) ) )
)
)
2024-08-07 12:24:15 +00:00
( if ( not ( string-match-p " ! " generated-sentence ) )
( setq generated-sentence ( format " %s. " generated-sentence ) )
)
2024-08-07 21:15:27 +00:00
generated-sentence
2024-08-07 08:36:00 +00:00
)
)
2024-08-07 12:24:15 +00:00
2024-08-07 21:15:27 +00:00
( defun splork-generate ( )
( interactive )
( switch-to-buffer-other-window " *splork* " )
( setq sentence ( splork ) )
( goto-char ( point-max ) )
( insert ( format " %s \n " sentence ) )
)
2024-08-07 12:24:15 +00:00
( provide 'splork )
