Dumb sentence generator, Common Lisp

Language: Layout:

;These are words from top-5000 english words, split by parts of speech (not quite accurately, but somewhat).
;It was done via dirty python script through combining some available dictionaries.
;I would gladly put this into file and load it, but web interface doesn't allow file loading.
;So, see actual code at the bottom.

(defvar adverbs '(
"absolutely"
"accidentally"
"actually"
"apparently"
"approximately"
"awfully"
"badly"
"barely"
"basically"
"briefly"
"carefully"
"certainly"
"clearly"
"closely"
"constantly"
"correctly"
"currently"
"deeply"
"definitely"
"deliberately"
"desperately"
"differently"
"directly"
"easily"
"emotionally"
"entirely"
"especially"
"eventually"
"exactly"
"extremely"
"fairly"
"finally"
"firmly"
"formally"
"fortunately"
"frankly"
"frequently"
"fully"
"generally"
"gradually"
"happily"
"hardly"
"heavily"
"highly"
"honestly"
"hopefully"
"immediately"
"importantly"
"incredibly"
"inevitably"
"largely"
"lately"
"legally"
"literally"
"locally"
"luckily"
"mainly"
"merely"
"mostly"
"naturally"
"nearly"
"necessarily"
"newly"
"nicely"
"normally"
"notably"
"obviously"
"occasionally"
"officially"
"originally"
"particularly"
"partly"
"perfectly"
"permanently"
"personally"
"physically"
"possibly"
"practically"
"precisely"
"presumably"
"previously"
"primarily"
"probably"
"properly"
"purely"
"quickly"
"quietly"
"rapidly"
"rarely"
"readily"
"really"
"reasonably"
"recently"
"regularly"
"relatively"
"respectively"
"roughly"
"safely"
"secondly"
"seriously"
"sharply"
"shortly"
"significantly"
"similarly"
"simply"
"slightly"
"slowly"
"softly"
"specifically"
"strictly"
"strongly"
"subsequently"
"suddenly"
"supposedly"
"surely"
"surprisingly"
"technically"
"terribly"
"totally"
"truly"
"ultimately"
"undoubtedly"
"unfortunately"
"usually"
"virtually"
"widely"
))
 
(defvar adjectives '(
"Celsius"
"abnormal"
"absurd"
"abundant"
"acceptable"
"accessible"
"accurate"
"actual"
"addicted"
"additional"
"adequate"
"adorable"
"advanced"
"afraid"
"aggressive"
"agile"
"alive"
"allergic"
"amazing"
"ambiguous"
"ambitious"
"ample"
"amusing"
"angry"
"anonymous"
"another"
"anxious"
"armed"
"arrogant"
"artificial"
"artistic"
"assertive"
"astonishing"
"attached"
"attractive"
"available"
"aware"
"awesome"
"awkward"
"beaten"
"beautiful"
"beneficial"
"biased"
"bigger"
"biggest"
"bizarre"
"both"
"brutal"
"capable"
"careful"
"careless"
"carsick"
"charming"
"civil"
"classical"
"clever"
"clinical"
"cloudy"
"clumsy"
"coercive"
"cogent"
"coherent"
"coincident"
"colloquial"
"colourful"
"comfortable"
"comfortless"
"comparable"
"concise"
"confidential"
"connected"
"conscious"
"convenient"
"convicted"
"cooked"
"corky"
"corporate"
"courageous"
"covered"
"creative"
"creepy"
"critical"
"cruel"
"crushed"
"curious"
"cursed"
"cute"
"daft"
"dangerous"
"dated"
"dedicated"
"defective"
"definite"
"delighted"
"delightful"
"delusional"
"dense"
"dependable"
"depressed"
"depressing"
"deserted"
"destructive"
"determined"
"devoted"
"different"
"difficult"
"disgusting"
"distant"
"distracted"
"disturbing"
"dramatic"
"drawn"
"dressed"
"easier"
"eastern"
"economic"
"effective"
"efficient"
"elderly"
"electrical"
"elegant"
"emotional"
"enormous"
"eternal"
"ethnic"
"every"
"everyday"
"excellent"
"excited"
"exciting"
"expensive"
"explicit"
"extraordinary"
"fabulous"
"famous"
"faraway"
"fascinating"
"fatal"
"favourable"
"fearful"
"fertile"
"filthy"
"financial"
"flexible"
"floating"
"fluent"
"foolish"
"forbidden"
"foreign"
"fortunate"
"fragile"
"freaky"
"furious"
"fuzzy"
"generic"
"generous"
"genetic"
"genuine"
"glamorous"
"global"
"gloomy"
"glorious"
"golden"
"gorgeous"
"graceful"
"graduated"
"granted"
"grateful"
"greater"
"guilty"
"habitual"
"hairy"
"handsome"
"handy"
"happy"
"harmful"
"harmless"
"harsh"
"healthy"
"helpful"
"helpless"
"hereditary"
"highest"
"historical"
"hoarse"
"honest"
"honorary"
"honourable"
"honoured"
"hopeless"
"horrible"
"hospitable"
"hostile"
"huge"
"humorous"
"hungry"
"hysterical"
"ignorant"
"illegal"
"illogical"
"imaginary"
"immediate"
"impartial"
"impolite"
"important"
"impressive"
"impulsive"
"inappropriate"
"incomplete"
"incorrect"
"incredible"
"indirect"
"indoor"
"industrial"
"infected"
"informal"
"injured"
"insane"
"insecure"
"insensitive"
"insulting"
"intelligent"
"intense"
"interested"
"interesting"
"inviting"
"ironic"
"irresponsible"
"jealous"
"larger"
"lazy"
"leery"
"legal"
"lethal"
"literary"
"logical"
"lonely"
"lousy"
"loving"
"loyal"
"lucky"
"lyrical"
"made-up"
"magical"
"magnificent"
"marvellous"
"massive"
"mental"
"merry"
"messy"
"minimal"
"miserable"
"missing"
"mistaken"
"mixed"
"modest"
"moist"
"mutual"
"mysterious"
"naked"
"nasty"
"nervous"
"nicer"
"noisy"
"nosy"
"notorious"
"nuclear"
"numerous"
"obedient"
"obese"
"obvious"
"oily"
"older"
"oldest"
"optional"
"orthodox"
"outdoor"
"outrageous"
"outspoken"
"outstanding"
"painful"
"passionate"
"pathetic"
"peaceful"
"pertinent"
"pessimistic"
"plausible"
"pleasant"
"pointless"
"polite"
"political"
"poor"
"popular"
"practical"
"precise"
"predatory"
"predominant"
"pregnant"
"previous"
"promising"
"psychological"
"punctual"
"pure"
"qualified"
"rainy"
"rare"
"rational"
"realistic"
"reasonable"
"recent"
"regional"
"registered"
"relevant"
"remaining"
"remarkable"
"respectful"
"restless"
"ridiculous"
"righteous"
"rigid"
"rigorous"
"risky"
"robust"
"rocky"
"rotten"
"rude"
"ruined"
"rural"
"sacred"
"sandy"
"sane"
"satisfactory"
"scary"
"scientific"
"selective"
"selfish"
"sensitive"
"sensual"
"sentimental"
"serious"
"several"
"severe"
"sexual"
"sexy"
"shared"
"shiny"
"significant"
"similar"
"simultaneous"
"sincere"
"skilful"
"sleepy"
"slender"
"slightest"
"smaller"
"so-called"
"solar"
"solemn"
"sophisticated"
"sorry"
"southern"
"spicy"
"splendid"
"spoiled"
"strategic"
"strict"
"stubborn"
"stuffed"
"subsequent"
"subtle"
"successful"
"sunny"
"superb"
"supportive"
"suspicious"
"tall"
"technical"
"tentative"
"terrible"
"terrific"
"thankful"
"theoretical"
"thirsty"
"thorough"
"thoughtful"
"tiny"
"toward"
"traditional"
"tragic"
"transparent"
"tremendous"
"tricky"
"tropical"
"twisted"
"typical"
"ugly"
"unable"
"unbelievable"
"uncertain"
"uncomfortable"
"undercover"
"understandable"
"uneasy"
"unemployed"
"unexpected"
"unfair"
"unhappy"
"united"
"unlike"
"unlikely"
"unlucky"
"unpleasant"
"unusual"
"urban"
"urgent"
"used"
"useless"
"vacant"
"vague"
"various"
"vicious"
"violent"
"vivid"
"vocational"
"vulnerable"
"weak"
"wealthy"
"whatever"
"whatsoever"
"wicked"
"widespread"
"windy"
"wonderful"
"worthless"
"younger"
))
 
(defvar verbs '(
"absorb"
"accelerate"
"accept"
"accompany"
"accomplish"
"accuse"
"achieve"
"acquire"
"adapt"
"add"
"adjust"
"admire"
"admit"
"adopt"
"adore"
"advertise"
"advise"
"afford"
"agree"
"allow"
"announce"
"apologise"
"apologizing"
"appear"
"apply"
"appreciate"
"approve"
"argue"
"arrange"
"arrive"
"ask"
"assume"
"assure"
"attain"
"attend"
"attract"
"avoid"
"became"
"become"
"been"
"begin"
"behave"
"believe"
"belong"
"betray"
"bless"
"breathe"
"bring"
"bury"
"calculate"
"cannot"
"carrying"
"caught"
"celebrate"
"characterize"
"choose"
"civilize"
"clarify"
"classify"
"clothe"
"come"
"commit"
"communicate"
"compete"
"complain"
"comprehend"
"confess"
"confide"
"confirm"
"confront"
"congratulate"
"connect"
"conquer"
"consider"
"consist"
"contain"
"continue"
"convince"
"cooperate"
"could"
"counselling"
"create"
"dealt"
"deceive"
"decide"
"declare"
"decorate"
"deduct"
"defend"
"define"
"deliver"
"deny"
"denying"
"depend"
"derive"
"descend"
"describe"
"deserve"
"despise"
"destroy"
"detect"
"deteriorate"
"determine"
"detest"
"develop"
"diagnose"
"disagree"
"disappear"
"disappoint"
"disclose"
"discover"
"dismiss"
"dispel"
"distract"
"disturb"
"drank"
"drown"
"earn"
"eat"
"educate"
"eject"
"embarrass"
"emerge"
"enable"
"encourage"
"enforce"
"engage"
"enhance"
"enjoy"
"enlarge"
"enter"
"erase"
"erupt"
"evaluate"
"exaggerate"
"examine"
"exceed"
"except"
"excite"
"exclaim"
"exclude"
"exist"
"expect"
"expel"
"explain"
"explode"
"explore"
"extinguish"
"flee"
"fluctuate"
"forbid"
"forcing"
"forget"
"forgive"
"forgiven"
"fought"
"fulfil"
"furnish"
"gave"
"generalize"
"govern"
"grew"
"grow"
"had"
"harass"
"harry"
"has"
"headquarter"
"heal"
"hear"
"hesitate"
"hid"
"hypnotize"
"identify"
"ignore"
"ignoring"
"illustrate"
"imagine"
"imitate"
"immigrate"
"imply"
"impose"
"incite"
"inclose"
"include"
"indicate"
"inhale"
"inherit"
"insist"
"install"
"instruct"
"insure"
"intend"
"interfere"
"introduce"
"invent"
"invest"
"investigate"
"involve"
"irritate"
"justify"
"kidnap"
"knew"
"learn"
"lend"
"lighten"
"listen"
"locate"
"lose"
"maintain"
"manipulate"
"marry"
"merge"
"misunderstand"
"modify"
"negotiate"
"notify"
"nourish"
"obey"
"oblige"
"observe"
"obtain"
"occupy"
"occur"
"omit"
"operate"
"oppose"
"opt"
"organize"
"overdo"
"overtake"
"overwhelm"
"owe"
"pamper"
"perceive"
"perform"
"persist"
"persuade"
"possess"
"postpone"
"practise"
"pray"
"precede"
"predict"
"prefer"
"prepare"
"presume"
"prevent"
"proceed"
"proclaim"
"promote"
"pronounce"
"propose"
"protect"
"prove"
"provide"
"publish"
"punish"
"pursue"
"qualify"
"ran"
"react"
"realise"
"receive"
"reckon"
"recognize"
"recommend"
"reconsider"
"recover"
"reduce"
"reflect"
"relate"
"relax"
"relieve"
"rely"
"remain"
"remember"
"remind"
"renew"
"renovate"
"repay"
"repel"
"replace"
"represent"
"require"
"resent"
"reside"
"resign"
"restore"
"restrain"
"restrict"
"retain"
"retire"
"rob"
"sank"
"scaring"
"seduce"
"seem"
"seize"
"shall"
"should"
"shown"
"sit"
"solve"
"speak"
"specify"
"spend"
"starve"
"straighten"
"strengthen"
"submit"
"subscribe"
"succeed"
"sue"
"suffer"
"suggest"
"suppose"
"survive"
"suspend"
"sustain"
"tempt"
"tend"
"thank"
"threaten"
"threw"
"tolerate"
"took"
"translate"
"understand"
"undertake"
"undo"
"unpack"
"vary"
"verify"
"warn"
"was"
"went"
"were"
"widen"
"withdraw"
"woke"
"wore"
"would"
"write"
"wrote"
))
 
(defvar nouns '(
"April"
"Christmas"
"December"
"England"
"Europe"
"February"
"Friday"
"Gemini"
"Italy"
"January"
"Jesus"
"July"
"June"
"Monday"
"November"
"October"
"Saturday"
"September"
"Sunday"
"T-shirt"
"Thursday"
"Tuesday"
"Wednesday"
"abbey"
"ability"
"absence"
"academy"
"acceptance"
"accident"
"accommodation"
"accusation"
"achievement"
"action"
"activity"
"actor"
"actress"
"addition"
"administration"
"adoption"
"advertisement"
"advice"
"affair"
"affection"
"agency"
"agenda"
"agent"
"aggravation"
"agreement"
"agriculture"
"airplane"
"airport"
"aisle"
"album"
"alcohol"
"alley"
"alliance"
"altar"
"ambulance"
"amen"
"amnesia"
"analysis"
"ancestor"
"and"
"angel"
"ankle"
"annulment"
"anxiety"
"anybody"
"apartment"
"apology"
"appearance"
"appetite"
"apple"
"application"
"appointment"
"approval"
"apricot"
"area"
"argument"
"army"
"arrangement"
"arrow"
"arson"
"artist"
"aspirin"
"asset"
"assistance"
"atmosphere"
"attention"
"attitude"
"attorney"
"attraction"
"audience"
"aunt"
"authorities"
"authority"
"auto"
"avenue"
"backyard"
"bacon"
"baggage"
"baker"
"balcony"
"ballet"
"banana"
"banking"
"barn"
"barrier"
"basement"
"basis"
"basket"
"basketball"
"bathroom"
"battery"
"beast"
"beauty"
"bedroom"
"bedtime"
"bee"
"beer"
"beginner"
"behalf"
"being"
"belief"
"betrayal"
"bikini"
"billboard"
"billiards"
"biography"
"biology"
"birthday"
"biscuit"
"bishop"
"blackboard"
"blade"
"blessing"
"bloke"
"boiler"
"bonus"
"booth"
"boundary"
"bout"
"bowling"
"boxing"
"boy"
"boyfriend"
"bra"
"bracelet"
"brandy"
"brass"
"breadth"
"breakdown"
"breath"
"bribery"
"bride"
"briefcase"
"buddy"
"bullet"
"bunny"
"bureau"
"bureaucracy"
"burger"
"burglar"
"buyer"
"cab"
"cafeteria"
"calculation"
"calculator"
"calf"
"calorie"
"camel"
"camera"
"camping"
"campus"
"cancer"
"candidate"
"canyon"
"capacity"
"cape"
"car"
"carbon"
"cargo"
"carriage"
"carrot"
"carter"
"carver"
"casino"
"cassette"
"casualty"
"category"
"cattle"
"ceiling"
"celebration"
"celebrity"
"cell"
"cemetery"
"cent"
"centimetre"
"century"
"ceremony"
"champagne"
"championship"
"chaos"
"chapel"
"charity"
"chef"
"chemist"
"chemistry"
"chess"
"chest"
"child"
"childhood"
"children"
"chimney"
"chopper"
"chore"
"cigar"
"cigarette"
"cinema"
"circus"
"citizen"
"city"
"civilization"
"classmate"
"classroom"
"clause"
"cleaner"
"cleaning"
"clearance"
"client"
"cliff"
"climate"
"clinic"
"cloth"
"clothing"
"coalition"
"coastline"
"cocktail"
"cocoa"
"coffee"
"coherence"
"coincidence"
"colleague"
"collection"
"college"
"colonel"
"colonist"
"colony"
"column"
"columnist"
"combination"
"comedy"
"comma"
"commentary"
"commerce"
"commitment"
"committee"
"commodity"
"communication"
"compassion"
"compensation"
"competition"
"complaint"
"complication"
"computer"
"concept"
"conclusion"
"condo"
"confectionery"
"conference"
"confession"
"confidence"
"conformity"
"confusion"
"congratulations"
"congress"
"connection"
"conscience"
"consciousness"
"consequence"
"consideration"
"conspiracy"
"construction"
"consultant"
"consultation"
"convenience"
"convention"
"conversation"
"conviction"
"cookie"
"cooperation"
"corpse"
"corridor"
"cosmetics"
"cottage"
"council"
"counsellor"
"counting"
"coupon"
"courage"
"courtesy"
"coverage"
"cowboy"
"creation"
"creature"
"creek"
"crime"
"crisis"
"criticism"
"crocodile"
"cucumber"
"cuisine"
"curiosity"
"currency"
"custody"
"customer"
"cutter"
"dad"
"dairy"
"daisy"
"dancer"
"danger"
"darkness"
"data"
"database"
"daughter"
"day"
"daylight"
"deadline"
"dealer"
"dearest"
"death"
"debris"
"debt"
"decade"
"decision"
"deer"
"defense"
"definition"
"delivery"
"democracy"
"demon"
"demonstration"
"denial"
"dentist"
"department"
"departure"
"depression"
"depth"
"description"
"desk"
"dessert"
"destiny"
"destruction"
"detention"
"determination"
"development"
"device"
"dexterity"
"diagnosis"
"dialect"
"diameter"
"diary"
"dictionary"
"difficulty"
"digging"
"dignity"
"diner"
"dinner"
"direction"
"director"
"disappearance"
"disappointment"
"disaster"
"discovery"
"discussion"
"disease"
"disobedience"
"distraction"
"division"
"doll"
"dollar"
"donkey"
"donor"
"door"
"dough"
"dragon"
"drama"
"drawer"
"drawing"
"dressing"
"driver"
"driveway"
"duty"
"earl"
"earphones"
"earring"
"economics"
"economy"
"edition"
"editor"
"education"
"efficiency"
"effort"
"ego"
"election"
"electricity"
"element"
"elephant"
"emotion"
"emphasis"
"empire"
"employee"
"employer"
"employment"
"energy"
"engagement"
"engine"
"enquiry"
"entertainment"
"entrepreneur"
"entry"
"envelope"
"environment"
"episode"
"equipment"
"eraser"
"erosion"
"error"
"eruption"
"estate"
"eternity"
"eve"
"evening"
"event"
"exam"
"exception"
"excitement"
"execution"
"exhibition"
"existence"
"expansion"
"expectation"
"expedition"
"explanation"
"explosion"
"expression"
"eyebrow"
"eyelash"
"eyesight"
"fabric"
"facility"
"facing"
"fact"
"factory"
"failure"
"faith"
"family"
"famine"
"farmer"
"fatality"
"feet"
"felony"
"festival"
"fibber"
"fighter"
"filling"
"finishing"
"fir"
"fireplace"
"firework"
"firing"
"fisherman"
"fishing"
"fitness"
"flirting"
"flu"
"folks"
"font"
"food"
"football"
"footstep"
"forehead"
"foreigner"
"forensics"
"forgiveness"
"formation"
"formula"
"fortnight"
"fossil"
"foundation"
"fountain"
"fragrance"
"framework"
"fraud"
"freedom"
"freeway"
"freezer"
"frequency"
"fridge"
"friendship"
"funeral"
"furniture"
"fusion"
"gadget"
"gallery"
"gallon"
"gangster"
"garbage"
"garlic"
"gene"
"generalization"
"generation"
"generosity"
"genius"
"gentleman"
"geography"
"geometry"
"girl"
"girlfriend"
"glacier"
"goal"
"goat"
"goddess"
"goodness"
"goods"
"goody"
"gourmet"
"government"
"governor"
"graduation"
"gram"
"grammar"
"granddad"
"granddaughter"
"grandfather"
"grandma"
"grandmother"
"grandparents"
"grandson"
"grape"
"graphics"
"gratitude"
"greed"
"grief"
"grocer"
"grocery"
"growth"
"guidance"
"guilt"
"guitar"
"gym"
"habitat"
"hair"
"haircut"
"hall"
"hallway"
"handbag"
"handkerchief"
"handling"
"handwriting"
"hangover"
"happiness"
"harassment"
"hardware"
"harmony"
"hatred"
"headache"
"heading"
"health"
"heaven"
"heaviness"
"height"
"heir"
"helicopter"
"hell"
"hello"
"hemisphere"
"herb"
"hero"
"hesitation"
"hierarchy"
"highness"
"highway"
"historian"
"history"
"hobby"
"hockey"
"holder"
"homecoming"
"homework"
"homicide"
"honesty"
"horizon"
"horoscope"
"horror"
"horseback"
"hospital"
"hostage"
"hostess"
"hotel"
"hour"
"housewife"
"housing"
"humanity"
"humidity"
"humiliation"
"hunter"
"hurricane"
"hydrogen"
"hypocrisy"
"idea"
"identity"
"idiom"
"idiot"
"ignition"
"illness"
"illusion"
"illustration"
"imagination"
"immigrant"
"implication"
"importance"
"impression"
"improvement"
"income"
"independence"
"industry"
"infection"
"inflation"
"information"
"inhabitant"
"injury"
"inn"
"innocence"
"innovation"
"inquiry"
"insanity"
"insect"
"inspection"
"inspector"
"inspiration"
"installation"
"institution"
"instruction"
"insurance"
"integration"
"integrity"
"intelligence"
"intention"
"internet"
"interrogation"
"intersection"
"interval"
"intestine"
"intruder"
"invasion"
"invention"
"investigation"
"investigator"
"investment"
"involvement"
"ivory"
"jay"
"jealousy"
"jean"
"jeans"
"jersey"
"jewellery"
"joining"
"journal"
"journalist"
"juice"
"jumper"
"junction"
"jungle"
"justice"
"keeper"
"kettle"
"kidney"
"killer"
"kilometre"
"kindness"
"kingdom"
"kitchen"
"kitty"
"knowledge"
"laboratory"
"lad"
"lady"
"lake"
"lamp"
"landing"
"landlord"
"language"
"laptop"
"laser"
"latitude"
"laundry"
"lavatory"
"law"
"lawn"
"lawsuit"
"lawyer"
"laying"
"laziness"
"leader"
"leadership"
"legend"
"legislation"
"lemon"
"lemonade"
"length"
"liar"
"liberty"
"library"
"lid"
"life"
"lifestyle"
"lifetime"
"lighting"
"lightning"
"liking"
"lily"
"limitation"
"lint"
"lion"
"literature"
"litre"
"liver"
"lobster"
"location"
"locker"
"logic"
"longitude"
"lorry"
"loser"
"loss"
"lotion"
"lottery"
"lover"
"loyalty"
"luggage"
"lunchtime"
"machinery"
"madam"
"madness"
"magazine"
"magnitude"
"maid"
"maintenance"
"majesty"
"majority"
"malice"
"mall"
"mammal"
"management"
"manager"
"mania"
"mankind"
"manner"
"manufacturer"
"margarine"
"marketing"
"marriage"
"marrow"
"marsh"
"math"
"mathematics"
"mattress"
"mayor"
"meadow"
"meal"
"measurement"
"meat"
"media"
"medication"
"meeting"
"melody"
"member"
"memory"
"men"
"menu"
"mercy"
"messenger"
"metaphor"
"method"
"metre"
"midday"
"millennium"
"miller"
"miracle"
"miser"
"misery"
"missile"
"mistress"
"mixture"
"modeling"
"module"
"moisture"
"molecule"
"mom"
"moment"
"mommy"
"monarchy"
"money"
"monopoly"
"monster"
"month"
"monument"
"mood"
"moron"
"mosque"
"mosquito"
"motel"
"motorway"
"moustache"
"movement"
"movie"
"muffin"
"murderer"
"museum"
"music"
"musician"
"mustard"
"mystery"
"myth"
"nanny"
"napkin"
"nation"
"nationality"
"nature"
"nausea"
"navy"
"necessity"
"necklace"
"nephew"
"news"
"newspaper"
"niece"
"night"
"nightmare"
"nobody"
"noodle"
"noon"
"nostril"
"notebook"
"notion"
"nought"
"noun"
"nuisance"
"nun"
"nursery"
"nutrition"
"oath"
"obituary"
"objection"
"obligation"
"oblivion"
"observation"
"obsession"
"occupation"
"ocean"
"odds"
"offense"
"office"
"ointment"
"omelette"
"omission"
"onion"
"opera"
"operation"
"operator"
"opinion"
"opportunity"
"opposition"
"option"
"orchard"
"orchestra"
"organ"
"organization"
"orientation"
"origin"
"ounce"
"outcome"
"outlook"
"oven"
"owner"
"ownership"
"oxygen"
"pail"
"painter"
"painting"
"pajamas"
"palace"
"paperwork"
"paradise"
"parking"
"parliament"
"parsley"
"participation"
"particle"
"partnership"
"passenger"
"passion"
"passport"
"password"
"pastime"
"paternity"
"path"
"patience"
"patron"
"pavement"
"payment"
"pear"
"peasant"
"penalty"
"peninsula"
"percentage"
"performance"
"period"
"permission"
"person"
"personnel"
"perspective"
"petrol"
"philosophy"
"photo"
"photographer"
"pianist"
"pie"
"pigeon"
"pint"
"pizza"
"planet"
"plantation"
"platform"
"player"
"plea"
"poem"
"poet"
"poetry"
"poker"
"policeman"
"policy"
"politician"
"politics"
"pollution"
"pond"
"pony"
"popcorn"
"popularity"
"population"
"porch"
"pork"
"porridge"
"portrait"
"possession"
"possibility"
"postage"
"poster"
"postman"
"potato"
"potatoes"
"potion"
"poverty"
"pram"
"prayer"
"preference"
"pregnancy"
"preparation"
"preposition"
"presence"
"presentation"
"president"
"prince"
"princess"
"principle"
"printer"
"priority"
"prison"
"prisoner"
"privacy"
"problem"
"procedure"
"producer"
"product"
"production"
"profession"
"professor"
"prom"
"promotion"
"pronunciation"
"property"
"proposal"
"prosecution"
"protection"
"providing"
"psychology"
"publication"
"publicity"
"publisher"
"pudding"
"pumpkin"
"punishment"
"pupil"
"puppet"
"puppy"
"qualification"
"quantity"
"quid"
"racism"
"radar"
"radiation"
"railway"
"rainbow"
"raspberry"
"ratio"
"reaction"
"reader"
"reading"
"reality"
"realm"
"reception"
"recipe"
"recognition"
"recommendation"
"recovery"
"reduction"
"redundancy"
"reflection"
"refreshment"
"refrigerator"
"regime"
"region"
"registration"
"rehabilitation"
"rehearsal"
"relation"
"relationship"
"relief"
"religion"
"reminder"
"removal"
"replacement"
"reporter"
"representation"
"republic"
"reputation"
"requirement"
"reservation"
"residence"
"resistance"
"resolution"
"resource"
"response"
"responsibility"
"restaurant"
"reunion"
"revenue"
"revolution"
"rhythm"
"river"
"robbery"
"robot"
"rod"
"role"
"roller"
"rug"
"ruler"
"sadness"
"safety"
"sailor"
"sake"
"salad"
"sale"
"salesman"
"salmon"
"salvation"
"sarcasm"
"satisfaction"
"saucer"
"sauna"
"sausage"
"saying"
"scam"
"scenario"
"scene"
"scenery"
"scholar"
"scholarship"
"science"
"scientist"
"scope"
"seaweed"
"secretary"
"security"
"selection"
"semester"
"semicolon"
"sensation"
"separation"
"sergeant"
"series"
"servant"
"serving"
"session"
"settlement"
"she"
"sheep"
"shelf"
"sheriff"
"shilling"
"shooter"
"shopping"
"shortage"
"sickness"
"sidewalk"
"signature"
"significance"
"signing"
"singer"
"sir"
"situation"
"skeleton"
"skier"
"skill"
"skull"
"skyscraper"
"slavery"
"smith"
"soccer"
"society"
"soda"
"sofa"
"software"
"solicitor"
"solution"
"somebody"
"someone"
"son"
"song"
"sonny"
"soul"
"source"
"spa"
"speaker"
"species"
"spectacle"
"speech"
"spelling"
"sperm"
"spider"
"spokesman"
"sportsman"
"squad"
"squirrel"
"stadium"
"staircase"
"statement"
"stationery"
"statue"
"status"
"steak"
"stepfather"
"storage"
"stranger"
"strategy"
"strawberry"
"street"
"strength"
"student"
"studio"
"substance"
"success"
"suggestion"
"suicide"
"suite"
"summit"
"sunshine"
"supermarket"
"surgeon"
"surgery"
"survival"
"suspicion"
"sweater"
"sweetheart"
"sword"
"system"
"tablet"
"tabloid"
"tale"
"talent"
"tea"
"teacher"
"technique"
"technology"
"teenager"
"television"
"telly"
"temperature"
"temple"
"temptation"
"tendency"
"tennis"
"tension"
"territory"
"terror"
"testimony"
"text"
"thanksgiving"
"theatre"
"theme"
"theory"
"therapist"
"therapy"
"thermometer"
"thesaurus"
"thief"
"thing"
"throat"
"tiger"
"tights"
"timetable"
"timing"
"tobacco"
"toilet"
"tomato"
"topic"
"tournament"
"town"
"tractor"
"tradition"
"tragedy"
"trailer"
"training"
"transition"
"translation"
"transportation"
"trauma"
"tray"
"treatment"
"treaty"
"triangle"
"tribe"
"trophy"
"trousers"
"trunk"
"truth"
"tulip"
"tumor"
"tuna"
"turkey"
"uncle"
"underwear"
"unemployment"
"unit"
"unity"
"universe"
"university"
"upside"
"user"
"vacancy"
"valley"
"vampire"
"van"
"variation"
"variety"
"vehicle"
"vengeance"
"verb"
"verdict"
"version"
"vessel"
"victim"
"victory"
"video"
"viewpoint"
"village"
"vine"
"violation"
"violence"
"virtue"
"virus"
"visitation"
"visitor"
"vitamin"
"vocabulary"
"volcano"
"volume"
"vowel"
"waist"
"waiter"
"waitress"
"walker"
"wallet"
"warden"
"wardrobe"
"warlock"
"warmth"
"warrior"
"washing"
"waterfall"
"weakness"
"wealth"
"weapon"
"wedding"
"wheat"
"who"
"width"
"wife"
"winner"
"wisdom"
"women"
"wool"
"worker"
"workshop"
"wrestling"
"wrist"
"writer"
"writing"
"yard"
"year"
"you"
"youngster"
"youth"
"zoo"
))

;-----------------------------------------------

;since mosts verbs above are in infinive, lets add these phrases so infinitive makes some sense
(defvar infinitive_helpers '(
"can"
"should"
"is going to"
))

;there phrases are used to connect two parts of a sentence
(defvar connect_helpers '(
"but"
"unless"
"and"
))

;function to get random element of a list
(defun getrandword (wordlist)
    (setf numwords (length wordlist))
    (setf targetword (elt wordlist (random numwords)))
    targetword
)

;returns true with 1/oneinhowmany probability
(defun chance (oneinhowmany)
    (cond
        ((= (random oneinhowmany) 0) t)
        (t nil)
    )
)

;shortcut func
(defun concatspace (str1 str2)
    (concatenate 'string str1 (concatenate 'string " " str2))
)

;returns a verb with maybe some adverbs attached to it
(defun getverbhelper (level)
    (cond
        ((chance (+ 4 level)) (concatspace (getrandword adverbs) (getverbhelper (+ level 2))))
        (t (getrandword verbs))
    )
)

;adds helper phrase to a verb
(defun getverb ()
    (concatspace (getrandword infinitive_helpers) (getverbhelper 0))
)

;returns noun with maybe some adjectives attached to it.
;can also reuse old nouns to make it more interesting.
;those are stored in a global variable, which is dumb but easy.
(defun getnoun (level useold)
    (cond
        ((and useold nounstoremember (chance 2)) 
         (block 'getandremove
                (setf oldnoun (getrandword nounstoremember))
                (setf nounstoremember nil)
                oldnoun
         )
        )
        ((chance (+ 3 level)) (concatspace (getrandword adjectives) (getnoun (+ level 1) useold)))
        (t (block 'rememberandget
                  (setf chosennoun (getrandword nouns))
                  (push chosennoun nounstoremember)
                  chosennoun
           )
        )
    )
)

;simple sentence is noun-verb-noun, with some lexical sugar.
;there are options to allow or disallow nouns reusage.
(defun getsimplesentence (newfirst newsecond)
    (concatenate 'string (getnoun 0 newfirst) " " (getverb) " " (getnoun 0 newsecond))
)

;full sentence from two simple sentences and a connector phrase
(defun getsentence ()
    (concatenate 'string (getsimplesentence t nil) ", " (getrandword connect_helpers) " " (getsimplesentence t t))
)

;srandtimenull
(setf *random-state* (make-random-state t))

;set global var to empty list
(setf nounstoremember nil)

;get that dumb sentence!
(format t "~a~%" (getsentence))

;some examples:
;desk can fully verify cowboy, and polite cowboy should surprisingly survive precise penalty
;horrible laser is going to engage reunion, and laser is going to advise alliance
;museum is going to acquire determination, and museum can really shown nightmare
;permission should hear offense, but civil offense can actually restrain classroom
;grandma is going to deny muffin, unless inspection should suffer muffin
;mayor is going to threaten technology, and mayor can starve innocence
;warrior should exclaim strategic incredible framework, but testimony is going to especially practise boxing

[ + ] Show input
Absolute running time: 0.06 sec, cpu time: 0.01 sec, memory peak: 7 Mb, absolute service time: 0,22 sec