perl -e'print"A plot\nMilton Läufer\n\n";for(;$i<12500;$i++){print" and then a ".qw/wedding murder suspicion birth hunt jealousy death party tension banishment trial verdict betrayal fight crush friendship trip loss/[rand 17]}print" and then the end.\n"'
This is a Nano-NaNoGenMo
perl -e'print"A plot\nMilton Läufer\n\n";for(;$i<12500;$i++){print" and then a ".qw/wedding murder suspicion birth hunt jealousy death party tension banishment trial verdict betrayal fight crush friendship trip loss/[rand 17]}print" and then the end.\n"'Example novel