; ported from madlang
%-

(:def adjective
  (:oneof
    (| "artless")
    (| "base-court")
    (| "bawdy")
    (| "bat-fowling")
    (| "beslubbering")
    (| "beef-witted")
    (| "bootless")
    (| "beetle-headed")
    (| "churlish")
    (| "boil-brained")
    (| "cockered")
    (| "clapper-clawed")
    (| "clouted")
    (| "clay-brained")
    (| "craven")
    (| "common-kissing")
    (| "currish")
    (| "crook-pated")
    (| "dankish")
    (| "dismal-dreaming")
    (| "dissembling")
    (| "dizzy-eyed")
    (| "droning")
    (| "doghearted")
    (| "errant")
    (| "dread-bolted")
    (| "earth-vexing")
    (| "elf-skinned")
    (| "fawning")
    (| "fobbing")
    (| "froward")
    (| "fat-kidneyed")
    (| "frothy")
    (| "fen-sucked")
    (| "gleeking")
    (| "flap-mouthed")
    (| "goatish")
    (| "fly-bitten")
    (| "gorbellied")
    (| "folly-fallen")
    (| "impertinent")
    (| "fool-born")
    (| "infectious")
    (| "full-gorged")
    (| "jarring")
    (| "guts-griping")
    (| "loggerheaded")
    (| "half-faced")
    (| "lumpish")
    (| "hasty-witted")
    (| "mammering")
    (| "hedge-born")
    (| "mangled")
    (| "hell-hated")
    (| "mewling")
    (| "idle-headed")
    (| "paunchy")
    (| "ill-breeding")
    (| "pribbling")
    (| "ill-nurtured")
    (| "puking")
    (| "knotty-pated")
    (| "puny")
    (| "milk-livered")
    (| "qualling")
    (| "motley-minded")
    (| "rank")
    (| "onion-eyed")
    (| "reeky")
    (| "plume-plucked")
    (| "roguish")
    (| "pottle-deep")
    (| "ruttish")
    (| "pox-marked")
    (| "saucy")
    (| "reeling-ripe")
    (| "spleeny")
    (| "rough-hewn")
    (| "spongy")
    (| "rude-growing")
    (| "surly")
    (| "rump-fed")
    (| "tottering")
    (| "shard-borne")
    (| "vain")
    (| "spur-galled")
    (| "venomed")
    (| "swag-bellied")
    (| "villainous")
    (| "tardy-gaited")
    (| "warped")
    (| "tickle-brained")
    (| "wayward")
    (| "toad-spotted")
    (| "weedy")
    (| "unchin-spotted")
    (| "yeasty")
    (| "weather-bitten")))

(:def noun
  (:oneof
    (| "apple-john")
    (| "baggage")
    (| "barnacle")
    (| "bladder")
    (| "boar-pig")
    (| "bugbear")
    (| "bum-bailey")
    (| "canker-blossom")
    (| "clack-dish")
    (| "clotpole")
    (| "coxcomb")
    (| "codpiece")
    (| "death-token")
    (| "dewberry")
    (| "flap-dragon")
    (| "flax-wench")
    (| "flirt-fill")
    (| "foot-licker")
    (| "fustilarian")
    (| "giglet")
    (| "gudgeon")
    (| "haggard")
    (| "harpy")
    (| "hedge-pig")
    (| "horn-beast")
    (| "hugger-mugger")
    (| "joithead")
    (| "lewdster")
    (| "lout")
    (| "maggot-pie")
    (| "malt-worm")
    (| "mammet")
    (| "measle")
    (| "minnow")
    (| "miscreant")
    (| "moldwarp")
    (| "mumble-news")
    (| "nut-hook")
    (| "pigeon-egg")
    (| "pignut")
    (| "puttock")
    (| "pumpion")
    (| "ratsbane")
    (| "scut")
    (| "skainsmate")
    (| "strumpet")
    (| "warlot")
    (| "vassal")
    (| "whey-face")))

(:def main
  ("Thou ${adjective} ${adjective} ${noun}!"))