From 414e2a482aace68d7af3b355c28a04d2aa1e74ba Mon Sep 17 00:00:00 2001
From: Peter Marquardt <wwwutz@molgen.mpg.de>
Date: Thu, 24 Nov 2022 09:38:18 +0100
Subject: [PATCH] add stutter

Puk Cock-a-doodle-doo-cock-a-doodle-doo? Bwwwaaaaaaaaaak bwok-bwok
cluck-a-buh-gawk-cluck-a-buh-gawk-cluck-a-buh-gawk Pukaaak waaak-waaak
gobble-gobble Bwak puk Cock-a-doodle-doo Bwak-bwak Puk-puk cluck. Cluckity
Bwwwaaaaaaaaaak Waaak-waaak-waaak Cock-a-doodle-doo-cock-a-doodle-doo
bok cluck Cluckity bwok cluck-cluck-cluck waaak!
---
 chicken.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/chicken.pl b/chicken.pl
index 39faf97..a051dc6 100755
--- a/chicken.pl
+++ b/chicken.pl
@@ -19,11 +19,8 @@
     'enumerate|en=i'     => \$opt_enumerate,
 ) or die USAGE;
 
-my @WORDS = (
-    "puk",           "pukaaak", "cluck", "cluck-cluck-cluck", "cluckity",          "bwak",
-    "waaak",         "bok",     "bwok",  "cluck-a-buh-gawk",  "cock-a-doodle-doo", "bwwwaaaaaaaaaak",
-    "gobble-gobble", "honk",
-);
+my @WORDS
+    = ( "puk", "pukaaak", "cluck", "cluckity", "bwak", "waaak", "bok", "bwok", "cluck-a-buh-gawk", "cock-a-doodle-doo", "bwwwaaaaaaaaaak", "gobble", "honk", );
 
 my @PUNCTUATIONS = ( ".", "...", "!", "?" );
 
@@ -48,6 +45,9 @@
 
         my $word = $WORDS[ int( rand( scalar @WORDS ) ) ];
 
+        # magic multiplier
+        $word = join( "-", ($word) x ( 4 - int( ( log( rand(7) + 1 ) / log(2) ) + 1 ) ) );
+
         # optionally add punctuation
         # note: always add punctuation if it's the last word.