This perl script generates a 50,000+ word novel about Thanksgiving.

perl -e 'sub n{(split/ /,"cobbler pies turkey beer wine stuffing dressing cranberry eggnog ham pecans casserole pumpkin squash dessert cordial")[rand 16]}print"Thanksgiving\nLeo Flores\n\nWe had ".n;for(;$i<26000;$i++){print" and ".n}print" and popped.\n"'

Credits: Huge thanks to Nick Montfort, who provided the inspiration with his Nano-NaNoGenMo spinoff concept, which lowered the technical bar enough for me to adapt Milton Läufer's code for "A Plot."