more fuzzed fixes

.gitignore

@@ -0,0 +1,3 @@
+.DS_Store
+
+./cowsay

LICENSE

@@ -1,36 +0,0 @@
-==============
-cowsay License
-==============
-
-cowsay is distributed under the same licensing terms as Perl: the
-Artistic License or the GNU General Public License.  If you don't
-want to track down these licenses and read them for yourself, use
-the parts that I'd prefer:
-
-(0) I wrote it and you didn't.
-
-(1) Give credit where credit is due if you borrow the code for some
-other purpose.
-
-(2) If you have any bugfixes or suggestions, please notify me so
-that I may incorporate them.
-
-(3) If you try to make money off of cowsay, you suck.
-
-===============
-cowsay Legalese
-===============
-
-(0) Copyright (c) 1999 Tony Monroe.  All rights reserved.  All
-lefts may or may not be reversed at my discretion.
-
-(1) This software package can be freely redistributed or modified
-under the terms described above in the "cowsay License" section
-of this file.
-
-(2) cowsay is provided "as is," with no warranties whatsoever,
-expressed or implied.  If you want some implied warranty about
-merchantability and/or fitness for a particular purpose, you will
-not find it here, because there is no such thing here.
-
-(3) I hate legalese.

cows/MechAndCow.cow

@@ -0,0 +1,17 @@
+## OFFSET 10
+                $thoughts                   ,-----.
+                  $thoughts                 |     |
+                    $thoughts            ,--|     |-.
+                         __,----|  |     | |
+                       ,;::     |  `_____' |
+                       `._______|    i^i   |
+                                `----| |---'| .
+                           ,-------._| |== ||//
+                           |       |_|P`.  /'/
+                           `-------' 'Y Y/'/'
+                                     .==\ /_\
+   ^__^                             /   /'|  `i
+   ($eyes)\_______                   /'   /  |   |
+   (__)\       )\/\             /'    /   |   `i
+    $tongue ||----w |           ___,;`----'.___L_,-'`\__
+       ||     ||          i_____;----\.____i""\____\

cows/TuxStab.cow

@@ -0,0 +1,20 @@
+## OFFSET 8
+             $thoughts            ,        ,
+               $thoughts         /(        )`
+                 $thoughts       \ \___   / |
+                        /- _  `-/  '
+                       (/\/ \ \   /\
+                       / /   | `    \
+                       O O   ) /    |
+                       `-^--'`<     '
+     .--.             (_.)  _  )   /
+    |o_o |             `.___/`    /
+    |:_/ |              `-----' /
+   //<- \ \----.     __ / __   \
+  (|  <- | )---|====O)))==) \) /====
+ /'\ <- _/`\---'    `--' `.__,' \
+ \___)=(___/            |        |
+                         \       /
+                    ______( (_  / \______
+                  ,'  ,-----'   |        \
+                  `--\{__________)        \/

cows/beavis.zen.cow

@@ -1,10 +1,9 @@
 ##
 ## Beavis, with Zen philosophy removed.
 ##
-$the_cow = <<EOC;
    $thoughts         __------~~-,
     $thoughts      ,'            ,
-          /               \\
+          /               \
          /                :
         |                  '
         |                  |
@@ -12,12 +11,11 @@ $the_cow = <<EOC;
          |   _--           |
          _| =-.     .-.   ||
          o|/o/       _.   |
-         /  ~          \\ |
+         /  ~          \ |
-       (____\@)  ___~    |
+       (____@)  ___~    |
           |_===~~~.`    |
        _______.--~     |
-       \\________       |
+       \________       |
-                \\      |
+                \      |
               __/-___-- -__
-             /            _ \\
+             /            _ \
-EOC

cows/blowfish.cow

@@ -0,0 +1,26 @@
+##
+## Blowfish
+##
+   $thoughts
+    $thoughts
+               |    .
+           .   |L  /|
+       _ . |\ _| \--+._/| .
+      / ||\| Y J  )   / |/| ./
+     J  |)'( |        ` F`.'/
+   -<|  F         __     .-<
+     | /       .-'. `.  /-. L___
+     J \      <    \  | | O\|.-'
+   _J \  .-    \/ O | | \  |F
+  '-F  -<_.     \   .-'  `-' L__
+ __J  _   _.     >-'  )._.   |-'
+ `-|.'   /_.           \_|   F
+   /.-   .                _.<
+  /'    /.'             .'  `\
+   /L  /'   |/      _.-'-\
+  /'J       ___.---'\|
+    |\  .--' V  | `. `
+    |/`. `-.     `._)
+       / .-.\
+ VK    \ (  `\
+        `.\

cows/bong.cow

@@ -1,16 +1,14 @@
 ##
 ## A cow with a bong, from lars@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
          $thoughts
           $thoughts
             ^__^ 
     _______/($eyes)
-/\\/(       /(__)
+/\/(       /(__)
    | W----|| |~|
    ||     || |~|  ~~
              |~|  ~
              |_| o
              |#|/
             _+#+_
-EOC

cows/bud-frogs.cow

@@ -1,12 +1,10 @@
 ##
 ## The Budweiser frogs
 ##
-$the_cow = <<EOC;
      $thoughts
       $thoughts
           oO)-.                       .-(Oo
-         /__  _\\                     /_  __\\
+         /__  _\                     /_  __\
-         \\  \\(  |     ()~()         |  )/  /
+         \  \(  |     ()~()         |  )/  /
-          \\__|\\ |    (-___-)        | /|__/
+          \__|\ |    (-___-)        | /|__/
-          '  '--'    ==`-'==        '--'  '
+          '  '--'    ==`-'==        '--'  '
-EOC

cows/bunny.cow

@@ -1,10 +1,8 @@
 ##
 ## A cute little wabbit
 ##
-$the_cow = <<EOC;
   $thoughts
-   $thoughts   \\
+   $thoughts   \
-        \\ /\\
+        \ /\
         ( )
-      .( o ).
+      .( o ).
-EOC

cows/cheese.cow

@@ -1,23 +1,21 @@
 ##
 ## The cheese from milk & cheese
 ##
-$the_cow = <<EOC;
    $thoughts
     $thoughts
       _____   _________
-     /     \\_/         |
+     /     \_/         |
     |                 ||
     |                 ||
-   |    ###\\  /###   | |
+   |    ###\  /###   | |
-   |     0  \\/  0    | |
+   |     0  \/  0    | |
   /|                 | |
- / |        <        |\\ \\
+ / |        <        |\ \
 | /|                 | | |
-| |     \\_______/   |  | |
+| |     \_______/   |  | |
 | |                 | / /
 /||                 /|||
    ----------------|
         | |    | |
         ***    ***
-       /___\\  /___\\
+       /___\  /___\
-EOC

cows/cower.cow

@@ -1,14 +1,12 @@
 ##
 ## A cowering cow
 ##
-$the_cow = <<EOC;
      $thoughts
       $thoughts
         ,__, |    | 
-        (oo)\\|    |___
+        (oo)\|    |___
-        (__)\\|    |   )\\_
+        (__)\|    |   )\_
-             |    |_w |  \\
+             |    |_w |  \
              |    |  ||   *
 
-             Cower....
+             Cower....
-EOC

cows/daemon.cow

@@ -1,24 +1,22 @@
 ##
 ## 4.4 >> 5.4
 ##
-$the_cow = <<EOC;
    $thoughts         ,        ,
     $thoughts       /(        )`
-     $thoughts      \\ \\___   / |
+     $thoughts      \ \___   / |
             /- _  `-/  '
-           (/\\/ \\ \\   /\\
+           (/\/ \ \   /\
-           / /   | `    \\
+           / /   | `    \
            O O   ) /    |
            `-^--'`<     '
           (_.)  _  )   /
            `.___/`    /
              `-----' /
-<----.     __ / __   \\
+<----.     __ / __   \
-<----|====O)))==) \\) /====
+<----|====O)))==) \) /====
-<----'    `--' `.__,' \\
+<----'    `--' `.__,' \
              |        |
-              \\       /
+              \       /
-        ______( (_  / \\______
+        ______( (_  / \______
-      ,'  ,-----'   |        \\
+      ,'  ,-----'   |        \
-      `--{__________)        \\/
+      `--{__________)        \/
-EOC

cows/default.cow

@@ -1,7 +1,8 @@
-$the_cow = <<"EOC";
+##
+## The default cow
+##
         $thoughts   ^__^
-         $thoughts  ($eyes)\\_______
+         $thoughts  ($eyes)\_______
-            (__)\\       )\\/\\
+            (__)\       )\/\
              $tongue ||----w |
-                ||     ||
+                ||     ||
-EOC

cows/dragon-and-cow.cow

@@ -1,21 +1,20 @@
 ##
 ## A dragon smiting a cow, possible credit to kube@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
+## OFFSET 16
                        $thoughts                    ^    /^
-                        $thoughts                  / \\  // \\
+                        $thoughts                  / \  // \
-                         $thoughts   |\\___/|      /   \\//  .\\
+                         $thoughts   |\___/|      /   \//  .\
-                          $thoughts  /O  O  \\__  /    //  | \\ \\           *----*
+                          $thoughts  /O  O  \__  /    //  | \ \           *----*
-                            /     /  \\/_/    //   |  \\  \\          \\   |
+                            /     /  \/_/    //   |  \  \          \   |
-                            \@___\@`    \\/_   //    |   \\   \\         \\/\\ \\
+                            @___@`    \/_   //    |   \   \         \/\ \
-                           0/0/|       \\/_ //     |    \\    \\         \\  \\
+                           0/0/|       \/_ //     |    \    \         \  \
-                       0/0/0/0/|        \\///      |     \\     \\       |  |
+                       0/0/0/0/|        \///      |     \     \       |  |
-                    0/0/0/0/0/_|_ /   (  //       |      \\     _\\     |  /
+                    0/0/0/0/0/_|_ /   (  //       |      \     _\     |  /
-                 0/0/0/0/0/0/`/,_ _ _/  ) ; -.    |    _ _\\.-~       /   /
+                 0/0/0/0/0/0/`/,_ _ _/  ) ; -.    |    _ _\.-~       /   /
                              ,-}        _      *-.|.-~-.           .~    ~
-            \\     \\__/        `/\\      /                 ~-. _ .-~      /
+            \     \__/        `/\      /                 ~-. _ .-~      /
-             \\____($eyes)           *.   }            {                   /
+             \____($eyes)           *.   }            {                   /
-             (    (--)          .----~-.\\        \\-`                 .~
+             (    (--)          .----~-.\        \-`                 .~
-             //__\\\\  \\__ Ack!   ///.----..<        \\             _ -~
+             //__\\  \__ Ack!   ///.----..<        \             _ -~
-            //    \\\\               ///-._ _ _ _ _ _ _{^ - - - - ~
+            //    \\               ///-._ _ _ _ _ _ _{^ - - - - ~
-EOC

cows/dragon.cow

@@ -1,21 +1,19 @@
 ##
 ## The Whitespace Dragon
 ##
-$the_cow = <<EOC;
+      $thoughts                    / \  //\
-      $thoughts                    / \\  //\\
+       $thoughts    |\___/|      /   \//  \\
-       $thoughts    |\\___/|      /   \\//  \\\\
+            /0  0  \__  /    //  | \ \    
-            /0  0  \\__  /    //  | \\ \\    
+           /     /  \/_/    //   |  \  \  
-           /     /  \\/_/    //   |  \\  \\  
+           @_^_@'/   \/_   //    |   \   \ 
-           \@_^_\@'/   \\/_   //    |   \\   \\ 
+           //_^_/     \/_ //     |    \    \
-           //_^_/     \\/_ //     |    \\    \\
+        ( //) |        \///      |     \     \
-        ( //) |        \\///      |     \\     \\
+      ( / /) _|_ /   )  //       |      \     _\
-      ( / /) _|_ /   )  //       |      \\     _\\
+    ( // /) '/,_ _ _/  ( ; -.    |    _ _\.-~        .-~~~^-.
-    ( // /) '/,_ _ _/  ( ; -.    |    _ _\\.-~        .-~~~^-.
   (( / / )) ,-{        _      `-.|.-~-.           .~         `.
- (( // / ))  '/\\      /                 ~-. _ .-~      .-~^-.  \\
+ (( // / ))  '/\      /                 ~-. _ .-~      .-~^-.  \
- (( /// ))      `.   {            }                   /      \\  \\
+ (( /// ))      `.   {            }                   /      \  \
-  (( / ))     .----~-.\\        \\-'                 .~         \\  `. \\^-.
+  (( / ))     .----~-.\        \-'                 .~         \  `. \^-.
-             ///.----..>        \\             _ -~             `.  ^-`  ^-_
+             ///.----..>        \             _ -~             `.  ^-`  ^-_
                ///-._ _ _ _ _ _ _}^ - - - - ~                     ~-- ,.-~
                                                                   /.-~
-EOC

cows/elephant-in-snake.cow

@@ -1,7 +1,6 @@
 ##
 ## Do we need to explain this?
 ##
-$the_cow = <<EOC;
    $thoughts
     $thoughts              ....       
            ........    .      
@@ -10,5 +9,4 @@ $the_cow = <<EOC;
 .........              .......
 ..............................
 
-Elephant inside ASCII snake
+Elephant inside ASCII snake
-EOC

cows/elephant.cow

@@ -1,15 +1,13 @@
 ##
 ## An elephant out and about
 ##
-$the_cow = <<EOC;
+ $thoughts     /\  ___  /\
- $thoughts     /\\  ___  /\\
+  $thoughts   // \/   \/ \\
-  $thoughts   // \\/   \\/ \\\\
      ((    O O    ))
-      \\\\ /     \\ //
+      \\ /     \ //
-       \\/  | |  \\/ 
+       \/  | |  \/ 
         |  | |  |  
         |  | |  |  
         |   o   |  
         | |   | |  
-        |m|   |m|  
+        |m|   |m|
-EOC

cows/eyes.cow

@@ -1,16 +1,14 @@
 ##
 ## Evil-looking eyes
 ##
-$the_cow = <<EOC;
     $thoughts
      $thoughts
                                    .::!!!!!!!:.
   .!!!!!:.                        .:!!!!!!!!!!!!
-  ~~~~!!!!!!.                 .:!!!!!!!!!UWWW\$\$\$ 
+  ~~~~!!!!!!.                 .:!!!!!!!!!UWWW$$$ 
-      :\$\$NWX!!:           .:!!!!!!XUWW\$\$\$\$\$\$\$\$\$P 
+      :$$NWX!!:           .:!!!!!!XUWW$$$$$$$$$P 
-      \$\$\$\$\$##WX!:      .<!!!!UW\$\$\$\$"  \$\$\$\$\$\$\$\$# 
+      $$$$$##WX!:      .<!!!!UW$$$$"  $$$$$$$$# 
-      \$\$\$\$\$  \$\$\$UX   :!!UW\$\$\$\$\$\$\$\$\$   4\$\$\$\$\$* 
+      $$$$$  $$$UX   :!!UW$$$$$$$$$   4$$$$$* 
-      ^\$\$\$B  \$\$\$\$\\     \$\$\$\$\$\$\$\$\$\$\$\$   d\$\$R" 
+      ^$$$B  $$$$\     $$$$$$$$$$$$   d$$R" 
-        "*\$bd\$\$\$\$      '*\$\$\$\$\$\$\$\$\$\$\$o+#" 
+        "*$bd$$$$      '*$$$$$$$$$$$o+#" 
-             """"          """"""" 
+             """"          """""""
-EOC

cows/flaming-sheep.cow

@@ -1,15 +1,13 @@
 ##
 ## The flaming sheep, contributed by Geordan Rosario (geordan@csua.berkeley.edu)
 ##
-$the_cow = <<EOC;
   $thoughts            .    .     .   
    $thoughts      .  . .     `  ,     
     $thoughts    .; .  : .' :  :  : . 
      $thoughts   i..`: i` i.i.,i  i . 
       $thoughts   `,--.|i |i|ii|ii|i: 
-           U${eyes}U\\.'\@\@\@\@\@\@`.||' 
+           U$eyesU\.'@@@@@@`.||' 
-           \\__/(\@\@\@\@\@\@\@\@\@\@)'  
+           \__/(@@@@@@@@@@)'  
-                (\@\@\@\@\@\@\@\@)    
+                (@@@@@@@@)    
                 `YY~~~~YY'    
-                 ||    ||     
+                 ||    ||     
-EOC

cows/ghostbusters.cow

@@ -1,26 +1,24 @@
 ##
 ## Ghostbusters!
 ##
-$the_cow = <<EOC;
           $thoughts
            $thoughts
             $thoughts          __---__
                     _-       /--______
-               __--( /     \\ )XXXXXXXXXXX\\v.
+               __--( /     \ )XXXXXXXXXXX\v.
              .-XXX(   O   O  )XXXXXXXXXXXXXXX-
-            /XXX(       U     )        XXXXXXX\\
+            /XXX(       U     )        XXXXXXX\
-          /XXXXX(              )--_  XXXXXXXXXXX\\
+          /XXXXX(              )--_  XXXXXXXXXXX\
-         /XXXXX/ (      O     )   XXXXXX   \\XXXXX\\
+         /XXXXX/ (      O     )   XXXXXX   \XXXXX\
-         XXXXX/   /            XXXXXX   \\__ \\XXXXX
+         XXXXX/   /            XXXXXX   \__ \XXXXX
-         XXXXXX__/          XXXXXX         \\__---->
+         XXXXXX__/          XXXXXX         \__---->
- ---___  XXX__/          XXXXXX      \\__         /
+ ---___  XXX__/          XXXXXX      \__         /
-   \\-  --__/   ___/\\  XXXXXX            /  ___--/=
+   \-  --__/   ___/\  XXXXXX            /  ___--/=
-    \\-\\    ___/    XXXXXX              '--- XXXXXX
+    \-\    ___/    XXXXXX              '--- XXXXXX
-       \\-\\/XXX\\ XXXXXX                      /XXXXX
+       \-\/XXX\ XXXXXX                      /XXXXX
-         \\XXXXXXXXX   \\                    /XXXXX/
+         \XXXXXXXXX   \                    /XXXXX/
-          \\XXXXXX      >                 _/XXXXX/
+          \XXXXXX      >                 _/XXXXX/
-            \\XXXXX--__/              __-- XXXX/
+            \XXXXX--__/              __-- XXXX/
              -XXXXXXXX---------------  XXXXXX-
-                \\XXXXXXXXXXXXXXXXXXXXXXXXXX/
+                \XXXXXXXXXXXXXXXXXXXXXXXXXX/
-                  ""VXXXXXXXXXXXXXXXXXXV""
+                  ""VXXXXXXXXXXXXXXXXXXV""
-EOC

cows/hellokitty.cow

@@ -1,11 +1,9 @@
 ##
 ## Hello Kitty
 ##
-$the_cow = <<EOC;
   $thoughts
    $thoughts
-      /\\_)o<
+      /\_)o<
-     |      \\
+     |      \
      | O . O|
-      \\_____/
+      \_____/
-EOC

cows/kiss.cow

@@ -1,26 +1,24 @@
 ##
-## A lovers' empbrace
+## A lovers' embrace
 ##
-$the_cow = <<EOC;
      $thoughts
       $thoughts
              ,;;;;;;;,
             ;;;;;;;;;;;,
            ;;;;;'_____;'
-           ;;;(/))))|((\\
+           ;;;(/))))|((\
            _;;((((((|))))
-          / |_\\\\\\\\\\\\\\\\\\\\\\\\
+          / |_\\\\\\\\\\\\
-     .--~(  \\ ~))))))))))))
+     .--~(  \ ~))))))))))))
-    /     \\  `\\-(((((((((((\\\\
+    /     \  `\-(((((((((((\\
-    |    | `\\   ) |\\       /|)
+    |    | `\   ) |\       /|)
-     |    |  `. _/  \\_____/ |
+     |    |  `. _/  \_____/ |
-      |    , `\\~            /
+      |    , `\~            /
-       |    \\  \\           /
+       |    \  \           /
-      | `.   `\\|          /
+      | `.   `\|          /
-      |   ~-   `\\        /
+      |   ~-   `\        /
-       \\____~._/~ -_,   (\\
+       \____~._/~ -_,   (\
-        |-----|\\   \\    ';;
+        |-----|\   \    ';;
-       |      | :;;;'     \\
+       |      | :;;;'     \
       |  /    |            |
-      |       |            |
+      |       |            |
-EOC

cows/kitty.cow

@@ -1,12 +1,10 @@
 ##
 ## A kitten of sorts, I think
 ##
-$the_cow = <<EOC;
      $thoughts
       $thoughts
        ("`-'  '-/") .___..--' ' "`-._
          ` *_ *  )    `-.   (      ) .`-.__. `)
          (_Y_.) ' ._   )   `._` ;  `` -. .-'
       _.. `--'_..-_/   /--' _ .' ,4
-   ( i l ),-''  ( l i),'  ( ( ! .-'    
+   ( i l ),-''  ( l i),'  ( ( ! .-'
-EOC

cows/koala.cow

@@ -1,12 +1,10 @@
 ##
 ## From the canonical koala collection
 ##
-$the_cow = <<EOC;
   $thoughts
    $thoughts
        ___  
      {~._.~}
       ( Y )
      ()~*~()   
-     (_)-(_)   
+     (_)-(_)
-EOC

cows/kosh.cow

@@ -1,19 +1,17 @@
 ##
 ## It's a Kosh Cow!
 ##
-$the_cow = <<EOC;
     $thoughts
      $thoughts
       $thoughts
   ___       _____     ___
- /   \\     /    /|   /   \\
+ /   \     /    /|   /   \
 |     |   /    / |  |     |
 |     |  /____/  |  |     |     
 |     |  |    |  |  |     |
 |     |  | {} | /   |     |
 |     |  |____|/    |     |
 |     |    |==|     |     |
-|      \\___________/      |
+|      \___________/      |
 |                         |
-|                         |
+|                         |
-EOC

cows/luke-koala.cow

@@ -1,7 +1,6 @@
 ##
 ## From the canonical koala collection
 ##
-$the_cow = <<EOC;
   $thoughts
    $thoughts          .
        ___   //
@@ -11,5 +10,4 @@ $the_cow = <<EOC;
      (_)-(_)   
      Luke    
      Sywalker
-     koala   
+     koala
-EOC

cows/meow.cow

@@ -1,15 +1,13 @@
 ##
 ## A meowing tiger?
 ##
-$the_cow = <<EOC;
   $thoughts
    $thoughts ,   _ ___.--'''`--''//-,-_--_.
-      \\`"' ` || \\\\ \\ \\\\/ / // / ,-\\\\`,_
+      \`"' ` || \\ \ \\/ / // / ,-\\`,_
-     /'`  \\ \\ || Y  | \\|/ / // / - |__ `-,
+     /'`  \ \ || Y  | \|/ / // / - |__ `-,
-    /\@"\\  ` \\ `\\ |  | ||/ // | \\/  \\  `-._`-,_.,
+    /@"\  ` \ `\ |  | ||/ // | \/  \  `-._`-,_.,
-   /  _.-. `.-\\,___/\\ _/|_/_\\_\\/|_/ |     `-._._)
+   /  _.-. `.-\,___/\ _/|_/_\_\/|_/ |     `-._._)
-   `-'``/  /  |  // \\__/\\__  /  \\__/ \\
+   `-'``/  /  |  // \__/\__  /  \__/ \
-        `-'  /-\\/  | -|   \\__ \\   |-' |
+        `-'  /-\/  | -|   \__ \   |-' |
-          __/\\ / _/ \\/ __,-'   ) ,' _|'
+          __/\ / _/ \/ __,-'   ) ,' _|'
-         (((__/(((_.' ((___..-'((__,'
+         (((__/(((_.' ((___..-'((__,'
-EOC

cows/milk.cow

@@ -1,21 +1,19 @@
 ##
 ## Milk from Milk and Cheese
 ##
-$the_cow = <<EOC;
  $thoughts     ____________ 
   $thoughts    |__________|
-      /           /\\
+      /           /\
-     /           /  \\
+     /           /  \
     /___________/___/|
     |          |     |
-    |  ==\\ /== |     |
+    |  ==\ /== |     |
-    |   O   O  | \\ \\ |
+    |   O   O  | \ \ |
-    |     <    |  \\ \\|
+    |     <    |  \ \|
-   /|          |   \\ \\
+   /|          |   \ \
-  / |  \\_____/ |   / /
+  / |  \_____/ |   / /
  / /|          |  / /|
-/||\\|          | /||\\/
+/||\|          | /||\/
     -------------|   
         | |    | | 
-       <__/    \\__>
+       <__/    \__>
-EOC

cows/moofasa.cow

@@ -1,14 +1,12 @@
 ##
 ## MOOfasa.
 ##
-$the_cow = <<EOC;
        $thoughts    ____
-        $thoughts  /    \\
+        $thoughts  /    \
           | ^__^ |
           | ($eyes) |______
-          | (__) |      )\\/\\
+          | (__) |      )\/\
-           \\____/|----w |
+           \____/|----w |
                 ||     ||
 
-	         Moofasa
+	         Moofasa
-EOC

cows/moose.cow

@@ -1,9 +1,10 @@
-$the_cow = <<EOC;
+##
+## A moose.
+##
   $thoughts
-   $thoughts   \\_\\_    _/_/
+   $thoughts   \_\_    _/_/
-    $thoughts      \\__/
+    $thoughts      \__/
-           ($eyes)\\_______
+           ($eyes)\_______
-           (__)\\       )\\/\\
+           (__)\       )\/\
             $tongue ||----w |
-               ||     ||
+               ||     ||
-EOC

cows/mutilated.cow

@@ -1,10 +1,8 @@
 ##
 ## A mutilated cow, from aspolito@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
+       $thoughts   \_______
-       $thoughts   \\_______
+ v__v   $thoughts  \   O   )
- v__v   $thoughts  \\   O   )
  ($eyes)      ||----w |
- (__)      ||     ||  \\/\\
+ (__)      ||     ||  \/\
-  $tongue
+  $tongue
-EOC

cows/ren.cow

@@ -1,22 +1,20 @@
 ##
 ## Ren 
 ##
-$the_cow = <<EOC;
    $thoughts
     $thoughts
     ____  
-   /# /_\\_
+   /# /_\_
-  |  |/o\\o\\
+  |  |/o\o\
-  |  \\\\_/_/
+  |  \\_/_/
  / |_   |  
-|  ||\\_ ~| 
+|  ||\_ ~| 
-|  ||| \\/  
+|  ||| \/  
 |  |||_    
- \\//  |    
+ \//  |    
   ||  |    
-  ||_  \\   
+  ||_  \   
-  \\_|  o|  
+  \_|  o|  
-  /\\___/   
+  /\___/   
  /  ||||__ 
-    (___)_)
+    (___)_)
-EOC

cows/satanic.cow

@@ -1,12 +1,10 @@
 ##
 ## Satanic cow, source unknown.
 ##
-$the_cow = <<EOC;
      $thoughts
       $thoughts  (__)  
-         (\\/)  
+         (\/)  
-  /-------\\/    
+  /-------\/    
  / | 666 ||    
 *  ||----||      
-   ~~    ~~      
+   ~~    ~~   
-EOC

cows/sheep.cow

@@ -1,13 +1,11 @@
 ##
 ## The non-flaming sheep.
 ##
-$the_cow = <<EOC
   $thoughts
    $thoughts
        __     
-      U${eyes}U\\.'\@\@\@\@\@\@`.
+      U$eyesU\.'@@@@@@`.
-      \\__/(\@\@\@\@\@\@\@\@\@\@)
+      \__/(@@@@@@@@@@)
-           (\@\@\@\@\@\@\@\@)
+           (@@@@@@@@)
            `YY~~~~YY'
-            ||    ||
+            ||    ||
-EOC

cows/skeleton.cow

@@ -2,14 +2,12 @@
 ## This 'Scowleton' brought to you by one of 
 ## {appel,kube,rowe}@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
           $thoughts      (__)      
            $thoughts     /$eyes|  
             $thoughts   (_"_)*+++++++++*
-                   //I#\\\\\\\\\\\\\\\\I\\
+                   //I#\\\\\\\\I\
                    I[I|I|||||I I `
                    I`I'///'' I I
                    I I       I I
                    ~ ~       ~ ~
-                     Scowleton
+                     Scowleton
-EOC

cows/small.cow

@@ -1,10 +1,7 @@
 ##
 ## A small cow, artist unknown
 ##
-$eyes = ".." unless ($eyes);
-$the_cow = <<EOC;
        $thoughts   ,__,
         $thoughts  ($eyes)____
-           (__)    )\\
+           (__)    )\
-            $tongue||--|| *
+            $tongue||--|| *
-EOC

cows/stegosaurus.cow

@@ -1,19 +1,17 @@
 ##
 ## A stegosaur with a top hat?
 ##
-$the_cow = <<EOC;
 $thoughts                             .       .
  $thoughts                           / `.   .' " 
   $thoughts                  .---.  <    > <    >  .---.
-   $thoughts                 |    \\  \\ - ~ ~ - /  /    |
+   $thoughts                 |    \  \ - ~ ~ - /  /    |
          _____          ..-~             ~-..-~
-        |     |   \\~~~\\.'                    `./~~~/
+        |     |   \~~~\.'                    `./~~~/
-       ---------   \\__/                        \\__/
+       ---------   \__/                        \__/
-      .'  O    \\     /               /       \\  " 
+      .'  O    \     /               /       \  " 
-     (_____,    `._.'               |         }  \\/~~~/
+     (_____,    `._.'               |         }  \/~~~/
-      `----.          /       }     |        /    \\__/
+      `----.          /       }     |        /    \__/
             `-.      |       /      |       /      `. ,~~|
                 ~-.__|      /_ - ~ ^|      /- _      `..-'   
                      |     /        |     /     ~-.     `-. _  _  _
-                     |_____|        |_____|         ~ - . _ _ _ _ _>
+                     |_____|        |_____|         ~ - . _ _ _ _ _>
-EOC

cows/stimpy.cow

@@ -1,19 +1,17 @@
 ##
 ## Stimpy!
 ##
-$the_cow = <<EOC;
   $thoughts     .    _  .    
-   $thoughts    |\\_|/__/|    
+   $thoughts    |\_|/__/|    
-       / / \\/ \\  \\  
+       / / \/ \  \  
-      /__|O||O|__ \\ 
+      /__|O||O|__ \ 
-     |/_ \\_/\\_/ _\\ |  
+     |/_ \_/\_/ _\ |  
      | | (____) | ||  
-     \\/\\___/\\__/  // 
+     \/\___/\__/  // 
      (_/         ||
       |          ||
-      |          ||\\   
+      |          ||\   
-       \\        //_/  
+       \        //_/  
-        \\______//
+        \______//
        __ || __||
-      (____(____)
+      (____(____)
-EOC

cows/supermilker.cow

@@ -1,10 +1,8 @@
 ##
 ## A cow being milked, probably from Lars Smith (lars@csua.berkeley.edu)
 ##
-$the_cow = <<EOC;
   $thoughts   ^__^
-   $thoughts  ($eyes)\\_______        ________
+   $thoughts  ($eyes)\_______        ________
-      (__)\\       )\\/\\    |Super |
+      (__)\       )\/\    |Super |
        $tongue ||----W |       |Milker|
-          ||    UDDDDDDDDD|______|
+          ||    UDDDDDDDDD|______|
-EOC

cows/surgery.cow

@@ -1,24 +1,22 @@
 ##
 ## A cow operation, artist unknown
 ##
-$the_cow = <<EOC;
+          $thoughts           \  / 
-          $thoughts           \\  / 
+           $thoughts           \/  
-           $thoughts           \\/  
+               (__)    /\         
-               (__)    /\\         
                ($eyes)   O  O        
-               _\\/_   //         
+               _\/_   //         
          *    (    ) //       
-          \\  (\\\\    //       
+          \  (\\    //       
-           \\(  \\\\    )                              
+           \(  \\    )                              
-            (   \\\\   )   /\\                          
+            (   \\   )   /\                          
-  ___[\\______/^^^^^^^\\__/) o-)__                     
+  ___[\______/^^^^^^^\__/) o-)__                     
- |\\__[=======______//________)__\\                    
+ |\__[=======______//________)__\                    
- \\|_______________//____________|                    
+ \|_______________//____________|                    
      |||      || //||     |||
      |||      || @.||     |||                        
-      ||      \\/  .\\/      ||                        
+      ||      \/  .\/      ||                        
                  . .                                 
                 '.'.`                                
 
-            COW-OPERATION                           
+            COW-OPERATION
-EOC

cows/three-eyes.cow

@@ -1,12 +1,8 @@
 ##
 ## A cow with three eyes, brought to you by dpetrou@csua.berkeley.edu
 ##
-$extra = chop($eyes);
-$eyes .= ($extra x 2);
-$the_cow = <<EOC;
         $thoughts  ^___^
-         $thoughts ($eyes)\\_______
+         $thoughts ($el$el$el)\_______
-           (___)\\       )\\/\\
+           (___)\       )\/\
             $tongue  ||----w |
-                ||     ||
+                ||     ||
-EOC

cows/turkey.cow

@@ -1,26 +1,24 @@
 ##
 ## Turkey!
 ##
-$the_cow = <<EOC;
   $thoughts                                  ,+*^^*+___+++_
    $thoughts                           ,*^^^^              )
     $thoughts                       _+*                     ^**+_
      $thoughts                    +^       _ _++*+_+++_,         )
-              _+^^*+_    (     ,+*^ ^          \\+_        )
+              _+^^*+_    (     ,+*^ ^          \+_        )
-             {       )  (    ,(    ,_+--+--,      ^)      ^\\
+             {       )  (    ,(    ,_+--+--,      ^)      ^\
-            { (\@)    } f   ,(  ,+-^ __*_*_  ^^\\_   ^\\       )
+            { (@)    } f   ,(  ,+-^ __*_*_  ^^\_   ^\       )
            {:;-/    (_+*-+^^^^^+*+*<_ _++_)_    )    )      /
-          ( /  (    (        ,___    ^*+_+* )   <    <      \\
+          ( /  (    (        ,___    ^*+_+* )   <    <      \
-           U _/     )    *--<  ) ^\\-----++__)   )    )       )
+           U _/     )    *--<  ) ^\-----++__)   )    )       )
-            (      )  _(^)^^))  )  )\\^^^^^))^*+/    /       /
+            (      )  _(^)^^))  )  )\^^^^^))^*+/    /       /
           (      /  (_))_^)) )  )  ))^^^^^))^^^)__/     +^^
          (     ,/    (^))^))  )  ) ))^^^^^^^))^^)       _)
           *+__+*       (_))^)  ) ) ))^^^^^^))^^^^^)____*^
-          \\             \\_)^)_)) ))^^^^^^^^^^))^^^^)
+          \             \_)^)_)) ))^^^^^^^^^^))^^^^)
-           (_             ^\\__^^^^^^^^^^^^))^^^^^^^)
+           (_             ^\__^^^^^^^^^^^^))^^^^^^^)
-             ^\\___            ^\\__^^^^^^))^^^^^^^^)\\\\
+             ^\___            ^\__^^^^^^))^^^^^^^^)\\
-                  ^^^^^\\uuu/^^\\uuu/^^^^\\^\\^\\^\\^\\^\\^\\^\\
+                  ^^^^^\uuu/^^\uuu/^^^^\^\^\^\^\^\^\^\
-                     ___) >____) >___   ^\\_\\_\\_\\_\\_\\_\\)
+                     ___) >____) >___   ^\_\_\_\_\_\_\)
-                    ^^^//\\\\_^^//\\\\_^       ^(\\_\\_\\_\\)
+                    ^^^//\\_^^//\\_^       ^(\_\_\_\)
-                      ^^^ ^^ ^^^ ^
+                      ^^^ ^^ ^^^ ^
-EOC

cows/turtle.cow

@@ -1,20 +1,18 @@
 ##
 ## A mysterious turtle...
 ##
-$the_cow = <<EOC;
     $thoughts                                  ___-------___
      $thoughts                             _-~~             ~~-_
       $thoughts                         _-~                    /~-_
-             /^\\__/^\\         /~  \\                   /    \\
+             /^\__/^\         /~  \                   /    \
-           /|  O|| O|        /      \\_______________/        \\
+           /|  O|| O|        /      \_______________/        \
-          | |___||__|      /       /                \\          \\
+          | |___||__|      /       /                \          \
-          |          \\    /      /                    \\          \\
+          |          \    /      /                    \          \
-          |   (_______) /______/                        \\_________ \\
+          |   (_______) /______/                        \_________ \
-          |         / /         \\                      /            \\
+          |         / /         \                      /            \
-           \\         \\^\\\\         \\                  /               \\     /
+           \         \^\\         \                  /               \     /
-             \\         ||           \\______________/      _-_       //\\__//
+             \         ||           \______________/      _-_       //\__//
-               \\       ||------_-~~-_ ------------- \\ --/~   ~\\    || __/
+               \       ||------_-~~-_ ------------- \ --/~   ~\    || __/
                  ~-----||====/~     |==================|       |/~~~~~
-                  (_(__/  ./     /                    \\_\\      \\.
+                  (_(__/  ./     /                    \_\      \.
-                         (_(___/                         \\_____)_)
+                         (_(___/                         \_____)_)
-EOC

cows/tux.cow

@@ -2,15 +2,12 @@
 ## TuX
 ## (c) pborys@p-soft.silesia.linux.org.pl 
 ##
-$the_cow = <<EOC;
    $thoughts
     $thoughts
         .--.
        |o_o |
        |:_/ |
-      //   \\ \\
+      //   \ \
      (|     | )
-    /'\\_   _/`\\
+    /'\_   _/`\
-    \\___)=(___/
+    \___)=(___/
-
-EOC

cows/udder.cow

@@ -1,16 +1,12 @@
 ##
 ## The cow from a file called cow-n-horn, artist unknown.
 ##
-$other_eye = chop($eyes);
-$eyes .= " $other_eye";
-$the_cow = <<EOC;
   $thoughts
    $thoughts    (__)               
-        $eyes\\               
+        $el $er\               
-       ('') \\---------     
+       ('') \---------     
-        $tongue\\           \\    
+        $tongue\           \    
-           |          |\\   
+           |          |\   
            ||---(  )_|| *  
            ||    UU  ||    
-           ==        ==    
+           ==        ==    
-EOC

cows/vader-koala.cow

@@ -1,7 +1,6 @@
 ##
 ## Another canonical koala?
 ##
-$the_cow = <<EOC;
    $thoughts
     $thoughts        .
      .---.  //
@@ -12,5 +11,4 @@ $the_cow = <<EOC;
 
      Darth 
      Vader    
-     koala        
+     koala      
-EOC

cows/vader.cow

@@ -1,13 +1,11 @@
 ##
 ## Cowth Vader, from geordan@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
         $thoughts    ,-^-.
          $thoughts   !oYo!
-          $thoughts /./=\\.\\______
+          $thoughts /./=\.\______
-               ##        )\\/\\
+               ##        )\/\
                 ||-----w||
                 ||      ||
 
-               Cowth Vader
+               Cowth Vader
-EOC

cows/www.cow

@@ -1,10 +1,8 @@
 ##
-## A cow wadvertising the World Wide Web, from lim@csua.berkeley.edu
+## A cow advertising the World Wide Web, from lim@csua.berkeley.edu
 ##
-$the_cow = <<EOC;
         $thoughts   ^__^
-         $thoughts  ($eyes)\\_______
+         $thoughts  ($eyes)\_______
-            (__)\\       )\\/\\
+            (__)\       )\/\
              $tongue ||--WWW |
-                ||     ||
+                ||     ||
-EOC

go.mod

@@ -0,0 +1,7 @@
+module git.yetaga.in/alazyreader/cowsay
+
+go 1.22.1
+
+require golang.org/x/term v0.18.0
+
+require golang.org/x/sys v0.18.0 // indirect

go.sum

@@ -0,0 +1,4 @@
+golang.org/x/sys v0.18.0 h1:DBdB3niSjOA/O0blCZBqDefyWNYveAYMNF1Wum0DYQ4=
+golang.org/x/sys v0.18.0/go.mod h1:/VUhepiaJMQUp4+oa/7Zr1D23ma6VTLIYjOOTFZPUcA=
+golang.org/x/term v0.18.0 h1:FcHjZXDMxI8mM3nwhX9HlKop4C0YQvCVCdwYl2wOtE8=
+golang.org/x/term v0.18.0/go.mod h1:ILwASektA3OnRv7amZ1xhE/KTR+u50pbXfZ03+6Nx58=

main.go

@@ -0,0 +1,313 @@
+package main
+
+import (
+	"bytes"
+	"embed"
+	"flag"
+	"fmt"
+	"io"
+	"log"
+	"os"
+	"strconv"
+	"strings"
+
+	"golang.org/x/term"
+)
+
+const DEBUG = false
+
+var (
+	// upper-left, upper-right, left side, right side, bottom-left, bottom-right
+	SAY_BORDER    = []rune{'/', '\\', '|', '|', '\\', '/'}
+	SINGLE_BORDER = []rune{'<', '>'}
+	THINK_BORDER  = []rune{'(', ')', '(', ')', '(', ')'}
+)
+
+type options struct {
+	thinking  bool
+	tongue    string
+	eyes      string
+	leftEye   string
+	rightEye  string
+	wrapWidth int
+}
+
+// the cowfiles
+//
+//go:embed cows/*
+var cowTemplates embed.FS
+
+func main() {
+	// basic flags
+	cowFile := flag.String("cow", "default.cow", "the cowfile to use")
+	tongue := flag.String("T", "  ", "the tongue to print")
+	eyesFlag := flag.String("e", "oo", "the eyes")
+	width := flag.Int("W", 40, "approximate column width for the word-wrap")
+
+	// also need to check for binary name here
+	thinkFlag := flag.Bool("think", false, "if the cow is thinking the input instead")
+
+	// flags for special conditions
+	// these flags override -e and -T if set
+	borgFlag := flag.Bool("b", false, "borg cow")         // ==
+	deadFlag := flag.Bool("d", false, "dead cow")         // xx AND tongue "U "
+	greedyFlag := flag.Bool("g", false, "greedy cow")     // $$
+	paranoidFlag := flag.Bool("p", false, "paranoid cow") // @@
+	stonedFlag := flag.Bool("s", false, "stoned cow")     // ** AND tongue "U "
+	tiredFlag := flag.Bool("t", false, "tired cow")       // --
+	wiredFlag := flag.Bool("w", false, "wired cow")       // OO
+	youngFlag := flag.Bool("y", false, "young cow")       // ..
+	flag.Parse()
+
+	input := flag.Arg(0)
+
+	if len(*tongue) < 2 {
+		*tongue = *tongue + strings.Repeat(" ", 2-len(*tongue))
+	}
+	if len(*eyesFlag) < 2 {
+		*eyesFlag = *eyesFlag + strings.Repeat(" ", 2-len(*eyesFlag))
+	}
+
+	opts := options{
+		thinking:  *thinkFlag,
+		tongue:    (*tongue)[0:2],
+		eyes:      (*eyesFlag)[0:2],
+		wrapWidth: *width,
+	}
+
+	switch {
+	case *borgFlag:
+		opts.eyes = "=="
+	case *deadFlag:
+		opts.eyes = "xx"
+		opts.tongue = "U "
+	case *greedyFlag:
+		opts.eyes = "$$"
+	case *paranoidFlag:
+		opts.eyes = "@@"
+	case *stonedFlag:
+		opts.eyes = "**"
+		opts.tongue = "U "
+	case *tiredFlag:
+		opts.eyes = "--"
+	case *wiredFlag:
+		opts.eyes = "OO"
+	case *youngFlag:
+		opts.eyes = ".."
+	}
+
+	opts.leftEye = strings.Split(*eyesFlag, "")[0]
+	opts.rightEye = strings.Split(*eyesFlag, "")[1]
+
+	// if there is command-line input, ignore stdin.
+	if !term.IsTerminal(0) && input != "" {
+		pipedInput, err := io.ReadAll(os.Stdin)
+		if err != nil {
+			log.Fatalf("error reading from stdin: %v", err)
+		}
+		input = string(bytes.TrimSpace(pipedInput))
+	}
+
+	if input == "" {
+		log.Fatal("no input; cow can't say anything")
+	}
+
+	b, err := cowTemplates.ReadFile("cows/" + *cowFile)
+	if err != nil {
+		log.Fatal(err)
+	}
+
+	fmt.Print(generateCow(string(b), input, opts))
+}
+
+func generateCow(cow, say string, opt options) string {
+	cowSlice := strings.Split(cow, "\n")
+
+	offset := 0
+	// Remove comments
+	i := 0
+	for _, s := range cowSlice {
+		if strings.HasPrefix(s, "##") && strings.Contains(s, "OFFSET") {
+			_, off, found := strings.Cut(s, "OFFSET ")
+			if found {
+				offset, _ = strconv.Atoi(off)
+			}
+		}
+		if !strings.HasPrefix(s, "##") {
+			cowSlice[i] = s
+			i++
+		}
+	}
+	cow = strings.Join(cowSlice[:i], "\n")
+
+	// do replaces
+	tail := `\`
+	if opt.thinking {
+		tail = `o`
+	}
+	cow = strings.ReplaceAll(cow, "$thoughts", tail)
+	cow = strings.ReplaceAll(cow, "$eyes", opt.eyes)
+	cow = strings.ReplaceAll(cow, "$el", opt.leftEye)
+	cow = strings.ReplaceAll(cow, "$er", opt.rightEye)
+	cow = strings.ReplaceAll(cow, "$tongue", opt.tongue)
+
+	out := &bytes.Buffer{}
+	fmt.Fprint(out, bubble(say, opt.thinking, opt.wrapWidth, offset))
+	fmt.Fprintln(out)
+	fmt.Fprint(out, cow)
+	fmt.Fprintln(out)
+	return out.String()
+}
+
+// this is an attempt to emulate the rather poorly-documented behavior of Text::Wrap::fill
+// from CPAN: https://github.com/ap/Text-Tabs/blob/master/lib.modern/Text/Wrap.pm
+// The basic idea is: take an input. Format each "paragraph" of text independently,
+// then merge with empty lines between.
+//
+// What is under-defined in the documentation is what fill() considers a "paragraph".
+// From testing and reviewing the rather obtuse code, a paragraph is any number of lines
+// that start with a line that has optional whitespace at its start, then all subsequent lines
+// that have no whitespace at the start, until either reaching another line that has leading
+// whitespace, or a blank line. fill() also "destroy[s] any whitespace in the original text",
+// by which it appearently means all tabs and multiple-spaces are replaced with single-spaces.
+//
+// So, for example, `text\ntext` is one paragraph, `text\n text` is two paragraphs. Since for
+// our purposes we don't want any indentation of paragraphs, the output of these two examples
+// should be `text text` and `text\n\ntext`, respectively.
+//
+// This is a pretty gnarly! Might be easier in a multi-pass model: collect together each paragraph,
+// collapse them into single strings and format in a sub-function, then merge them all together.
+// That's closer to how the perl module does it.
+func wordWrap(text []string, column int) ([]string, int) {
+	out := []string{}
+	length := 0
+	var b strings.Builder
+	var inParagraph bool
+	for beginning, line := range text {
+		// remove control character whitespace
+		line = strings.ReplaceAll(line, "\t", " ")
+		line = strings.ReplaceAll(line, "\v", " ")
+		line = strings.ReplaceAll(line, "\f", " ")
+		line = strings.ReplaceAll(line, "\r", " ")
+		words := strings.Split(line, " ")
+		// skip empty newlines if not in a paragraph, but start a new paragraph if we are.
+		if strings.TrimSpace(line) == "" {
+			if inParagraph {
+				length = max(length, b.Len()-1)
+				out = append(out, b.String()[0:b.Len()-1])
+				out = append(out, "")
+				b = strings.Builder{}
+				inParagraph = false
+			}
+			continue
+		}
+		// we -1 all over the place to clean up the loose space on the end of the builder
+		for i, word := range words { // split into words
+			if DEBUG {
+				log.Printf("%d, `%s`", i, b.String())
+			}
+			if inParagraph && i == 0 && word == "" && len(words) != 0 {
+				// we've found a new paragraph while we were still processing the old one.
+				// (that is, the new line we're parsing had leading whitespace)
+				length = max(length, b.Len()-1)
+				out = append(out, b.String()[0:b.Len()-1])
+				out = append(out, "")
+				b = strings.Builder{}
+				log.Println("here")
+			}
+			// bizarrely, cowsay allows for indentation to survive in the /first/ paragraph,
+			// but only up to two spaces worth.
+			if beginning == 0 && (b.Len() == 0 || b.String() == " ") && word == "" {
+				b.WriteRune(' ')
+			}
+			if b.Len() == 0 && word != "" {
+				inParagraph = true
+			}
+			if b.Len() >= 0 && word == "" && i+1 != len(words) {
+				// skip multiple spaces in a row...
+				// ...but a single trailing space on a line is OK??
+				continue
+			}
+			if b.Len() > 0 && b.Len()+len(word)+1 > column {
+				// if the word we want to append is bigger than we have room for,
+				// save off the maximum length, save the current line to the output,
+				// and start a new builder.
+				length = max(length, b.Len()-1)
+				out = append(out, b.String()[0:b.Len()-1])
+				b = strings.Builder{}
+			}
+			for b.Len() == 0 && len(word) >= column {
+				// our word is longer than our maximum column size. let's break it up.
+				// we loop until we've consumed the full overly-long word.
+				length = max(length, column-1)
+				out = append(out, word[0:column-1])
+				word = word[column-1:]
+				b = strings.Builder{}
+			}
+			// actually append the word and a space
+			b.WriteString(word)
+			b.WriteRune(' ')
+			if DEBUG {
+				log.Printf("%d, `%s`", i, b.String())
+			}
+		}
+	}
+	// out of words! save off our last line.
+	length = max(length, b.Len()-1)
+	out = append(out, b.String()[0:b.Len()-1])
+	return out, length
+}
+
+func padText(text []string, maxLength int) []string {
+	for i, line := range text {
+		if len(line) < maxLength {
+			text[i] = text[i] + strings.Repeat(" ", maxLength-len(line))
+		}
+	}
+	return text
+}
+
+func bubble(text string, think bool, column int, offset int) string {
+	s, column := wordWrap(strings.Split(text, "\n"), column)
+	s = padText(s, column)
+	b := strings.Builder{}
+	padding := strings.Repeat(" ", offset)
+	b.WriteString(padding)
+	b.WriteString(" ")
+	b.WriteString(strings.Repeat("_", column+2))
+	b.WriteString(" \n")
+	var borderStyle []rune
+	if think {
+		borderStyle = THINK_BORDER
+	} else if len(s) == 1 {
+		borderStyle = SINGLE_BORDER
+	} else {
+		borderStyle = SAY_BORDER
+	}
+	for i := range s {
+		b.WriteString(padding)
+		if i == 0 {
+			b.WriteRune(borderStyle[0])
+		} else if i == len(s)-1 {
+			b.WriteRune(borderStyle[4])
+		} else {
+			b.WriteRune(borderStyle[2])
+		}
+		b.WriteRune(' ')
+		b.WriteString(s[i])
+		b.WriteRune(' ')
+		if i == 0 {
+			b.WriteRune(borderStyle[1])
+		} else if i == len(s)-1 {
+			b.WriteRune(borderStyle[5])
+		} else {
+			b.WriteRune(borderStyle[3])
+		}
+		b.WriteRune('\n')
+	}
+	b.WriteString(padding)
+	b.WriteString(" ")
+	b.WriteString(strings.Repeat("-", column+2))
+	b.WriteString(" ")
+	return b.String()
+}

main_test.go

@@ -0,0 +1,172 @@
+package main
+
+import (
+	"os"
+	"os/exec"
+	"strings"
+	"testing"
+)
+
+func must[T any](t T, err error) T {
+	if err != nil {
+		panic(err)
+	}
+	return t
+}
+
+var defaultOptions options = options{
+	tongue:    "  ",
+	eyes:      "oo",
+	leftEye:   "o",
+	rightEye:  "o",
+	wrapWidth: 40,
+}
+
+func TestGenerateCow(t *testing.T) {
+	type args struct {
+		cow string
+		say string
+		opt options
+	}
+	tests := []struct {
+		name     string
+		args     args
+		expected string
+	}{
+		{
+			name: "basic cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "test text",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/basic.cow"))),
+		},
+		{
+			name: "single-paragraph test",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "test\ntext",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/one_paragraph.cow"))),
+		},
+		{
+			name: "multiline with wordwrap test",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "this is a long block of text.\nIt goes over many lines! It'll even word-wrap for us.",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/longer_multiline.cow"))),
+		},
+		{
+			name: "two-paragraph multiline with wordwrap test",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "this is a long block of text.\n\nIt goes over many lines! It'll even word-wrap for us.",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/two_paragraph_multiline.cow"))),
+		},
+		{
+			name: "offset bubble",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/dragon-and-cow.cow"))),
+				say: "this is a long block of text.\nIt goes over many lines! It'll even word-wrap for us.",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/dragon.cow"))),
+		},
+		{
+			name: "leading space cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: " text",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/leading_space.cow"))),
+		},
+		{
+			name: "extra spaces cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "some    text",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/extra_spaces.cow"))),
+		},
+		{
+			name: "vertical tab cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "some\vtext",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/extra_spaces.cow"))),
+		},
+		{
+			name: "a word that's too long cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: "00000000000000000000000000000000000000000000000000 11",
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/too_long.cow"))),
+		},
+		{
+			name: "fortune cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: `Most people eat as though they were fattening themselves for market.
+                -- E.W. Howe`,
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/fortune.cow"))),
+		},
+		{
+			name: "trailing space cow",
+			args: args{
+				cow: string(must(os.ReadFile("./cows/default.cow"))),
+				say: `test  `,
+				opt: defaultOptions,
+			},
+			expected: string(must(os.ReadFile("./testdata/trailing_space.cow"))),
+		},
+	}
+	for _, tt := range tests {
+		t.Run(tt.name, func(t *testing.T) {
+			out := generateCow(tt.args.cow, tt.args.say, tt.args.opt)
+			if out != tt.expected {
+				t.Logf("expected: \n%v", tt.expected)
+				t.Logf("got: \n%v", out)
+				t.Fatal()
+			}
+		})
+	}
+}
+
+// fuzz testing requires perl to be installed and in the PATH
+func FuzzCow(f *testing.F) {
+	cowString := string(must(os.ReadFile("./cows/default.cow")))
+	f.Add("phrase")
+	f.Add("phrase with many many words in it so that we get a word-wrap situation")
+	f.Fuzz(func(t *testing.T, phrase string) {
+		if strings.TrimSpace(phrase) != phrase || phrase == "" {
+			// uninteresting degenerate cases where there's a bug in the perl
+			t.Skip()
+		}
+		res := generateCow(cowString, phrase, options{tongue: "  ", eyes: "oo", wrapWidth: 40})
+		cmd := exec.Command("perl", "./perl/cowsay", "-f", "./perl/cows/default.cow")
+		cmd.Stdin = strings.NewReader(phrase)
+		var out strings.Builder
+		cmd.Stdout = &out
+		err := cmd.Run()
+		if err != nil {
+			t.Error(err)
+		}
+		if res != out.String() {
+			t.Errorf("mismatch between perl and go.\nPerl:\n%s\ngo:\n%s", out.String(), res)
+		}
+	})
+}

perl/CONTRIBUTING.md

@@ -0,0 +1,15 @@
+# Contributing to cowsay
+
+The repository at https://github.com/tnalpgge/rank-amateur-cowsay.git is
+available for forking to any interested parties.  Issues and pull
+requests on that repository will be ignored.
+
+This file may be replaced or edited at the discretion of those
+entitled to commit to forks.
+
+## Recommendation on code of conduct for contributors
+
+I recommend [Contributor Covenant](http://contributor-covenant.org)
+as a starting point for a formal and detailed code of conduct.
+Should that be inadequate, defer to 
+[The Golden Rule](http://en.wikipedia.org/wiki/Golden_Rule).

perl/ChangeLog

@@ -1,3 +1,8 @@
+3.04	24 June 2016
+	- Licensing terms have changed to GPLv3.
+	- Friendlier to being hosted on GitHub.
+	- No functionality changes whatsoever.
+
 3.03	28 May 1999
 	- Added cows/tux.cow, as suggested by xmanoel@i.am
 	- Compatibility with 5.6.0, due to a change in qw().

perl/LICENSE

@@ -0,0 +1,674 @@
+                    GNU GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                       TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+  To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies.  Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+  An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License.  If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+  1. Source Code.
+
+  The "source code" for a work means the preferred form of the work
+for making modifications to it.  "Object code" means any non-source
+form of a work.
+
+  A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+  The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form.  A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+  The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities.  However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work.  For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+  The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+  The Corresponding Source for a work in source code form is that
+same work.
+
+  2. Basic Permissions.
+
+  All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met.  This License explicitly affirms your unlimited
+permission to run the unmodified Program.  The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work.  This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+  You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force.  You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright.  Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+  Conveying under any other circumstances is permitted solely under
+the conditions stated below.  Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+  No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+  When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+  4. Conveying Verbatim Copies.
+
+  You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+  You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+  You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+    a) The work must carry prominent notices stating that you modified
+    it, and giving a relevant date.
+
+    b) The work must carry prominent notices stating that it is
+    released under this License and any conditions added under section
+    7.  This requirement modifies the requirement in section 4 to
+    "keep intact all notices".
+
+    c) You must license the entire work, as a whole, under this
+    License to anyone who comes into possession of a copy.  This
+    License will therefore apply, along with any applicable section 7
+    additional terms, to the whole of the work, and all its parts,
+    regardless of how they are packaged.  This License gives no
+    permission to license the work in any other way, but it does not
+    invalidate such permission if you have separately received it.
+
+    d) If the work has interactive user interfaces, each must display
+    Appropriate Legal Notices; however, if the Program has interactive
+    interfaces that do not display Appropriate Legal Notices, your
+    work need not make them do so.
+
+  A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit.  Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+  You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+    a) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by the
+    Corresponding Source fixed on a durable physical medium
+    customarily used for software interchange.
+
+    b) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by a
+    written offer, valid for at least three years and valid for as
+    long as you offer spare parts or customer support for that product
+    model, to give anyone who possesses the object code either (1) a
+    copy of the Corresponding Source for all the software in the
+    product that is covered by this License, on a durable physical
+    medium customarily used for software interchange, for a price no
+    more than your reasonable cost of physically performing this
+    conveying of source, or (2) access to copy the
+    Corresponding Source from a network server at no charge.
+
+    c) Convey individual copies of the object code with a copy of the
+    written offer to provide the Corresponding Source.  This
+    alternative is allowed only occasionally and noncommercially, and
+    only if you received the object code with such an offer, in accord
+    with subsection 6b.
+
+    d) Convey the object code by offering access from a designated
+    place (gratis or for a charge), and offer equivalent access to the
+    Corresponding Source in the same way through the same place at no
+    further charge.  You need not require recipients to copy the
+    Corresponding Source along with the object code.  If the place to
+    copy the object code is a network server, the Corresponding Source
+    may be on a different server (operated by you or a third party)
+    that supports equivalent copying facilities, provided you maintain
+    clear directions next to the object code saying where to find the
+    Corresponding Source.  Regardless of what server hosts the
+    Corresponding Source, you remain obligated to ensure that it is
+    available for as long as needed to satisfy these requirements.
+
+    e) Convey the object code using peer-to-peer transmission, provided
+    you inform other peers where the object code and Corresponding
+    Source of the work are being offered to the general public at no
+    charge under subsection 6d.
+
+  A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+  A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling.  In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage.  For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product.  A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+  "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source.  The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+  If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information.  But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+  The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed.  Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+  Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+  7. Additional Terms.
+
+  "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law.  If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+  When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it.  (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.)  You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+  Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+    a) Disclaiming warranty or limiting liability differently from the
+    terms of sections 15 and 16 of this License; or
+
+    b) Requiring preservation of specified reasonable legal notices or
+    author attributions in that material or in the Appropriate Legal
+    Notices displayed by works containing it; or
+
+    c) Prohibiting misrepresentation of the origin of that material, or
+    requiring that modified versions of such material be marked in
+    reasonable ways as different from the original version; or
+
+    d) Limiting the use for publicity purposes of names of licensors or
+    authors of the material; or
+
+    e) Declining to grant rights under trademark law for use of some
+    trade names, trademarks, or service marks; or
+
+    f) Requiring indemnification of licensors and authors of that
+    material by anyone who conveys the material (or modified versions of
+    it) with contractual assumptions of liability to the recipient, for
+    any liability that these contractual assumptions directly impose on
+    those licensors and authors.
+
+  All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10.  If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term.  If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+  If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+  Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+  8. Termination.
+
+  You may not propagate or modify a covered work except as expressly
+provided under this License.  Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+  However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+  Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+  Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License.  If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+  You are not required to accept this License in order to receive or
+run a copy of the Program.  Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance.  However,
+nothing other than this License grants you permission to propagate or
+modify any covered work.  These actions infringe copyright if you do
+not accept this License.  Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+  Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License.  You are not responsible
+for enforcing compliance by third parties with this License.
+
+  An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations.  If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+  You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License.  For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+  11. Patents.
+
+  A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based.  The
+work thus licensed is called the contributor's "contributor version".
+
+  A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version.  For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+  In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement).  To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+  If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients.  "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+  If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+  A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License.  You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+  Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others' Freedom.
+
+  If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all.  For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+  13. Use with the GNU Affero General Public License.
+
+  Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU Affero General Public License into a single
+combined work, and to convey the resulting work.  The terms of this
+License will continue to apply to the part which is the covered work,
+but the special requirements of the GNU Affero General Public License,
+section 13, concerning interaction through a network will apply to the
+combination as such.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+  Each version is given a distinguishing version number.  If the
+Program specifies that a certain numbered version of the GNU General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation.  If the Program does not specify a version number of the
+GNU General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+  If the Program specifies that a proxy can decide which future
+versions of the GNU General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+  Later license versions may give you additional or different
+permissions.  However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+  15. Disclaimer of Warranty.
+
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+  If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+    <program>  Copyright (C) <year>  <name of author>
+    This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, your program's commands
+might be different; for a GUI interface, you would use an "about box".
+
+  You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU GPL, see
+<http://www.gnu.org/licenses/>.
+
+  The GNU General Public License does not permit incorporating your program
+into proprietary programs.  If your program is a subroutine library, you
+may consider it more useful to permit linking proprietary applications with
+the library.  If this is what you want to do, use the GNU Lesser General
+Public License instead of this License.  But first, please read
+<http://www.gnu.org/philosophy/why-not-lgpl.html>.

perl/README

@@ -1,5 +1,5 @@
 ===========
-cowsay 3.03
+cowsay 3.04
 ===========
 
 cowsay is a configurable talking cow, written in Perl.  It operates
@@ -33,6 +33,4 @@ To install cowsay, consult the INSTALL file in this directory.
 For the terms and conditions of use, consult the LICENSE file in
 this directory.
 
--- Tony Monroe (tony@nog.net)
+-- tony
-
-$Id$

perl/README.md

@@ -0,0 +1,21 @@
+# rank-amateur-cowsay
+
+This is cowsay, imported directly from my ancient CVS repository,
+plus a few documentation tweaks to make it a bit more friendly to
+GitHub.  Functionality remains unchanged from all pre-GitHub commits.
+
+Cowsay was a project for learning how to use Perl 5, as well as
+general amusement.  If the code looks like it was written by an
+inexperienced programmer, that's because it was.
+
+If you are interested in the future of cowsay beyond what is here,
+then I encourage you to read CONTRIBUTING.md in this directory.
+
+I am no longer interested in maintaining cowsay; there are other
+demands on my time that take precedence.
+
+Enthusiasm for cowsay has gone far beyond what I expected, and if
+cowsay is to have a future, then the least I can do is not stand
+in the way of it.
+
+Enjoy cowsay for what it was meant to be: simple and silly.

perl/cows/DragonAndCow.pm

@@ -0,0 +1,36 @@
+package Acme::Cow::DragonAndCow;
+use strict;
+use Acme::Cow;
+@Acme::Cow::DragonAndCow::ISA = qw(Acme::Cow);
+my $dragon_and_cow = <<'EOC';
+{$balloon}
+                 {$tl}                          ^    /^
+                    {$tl}                      / \  // \
+                       {$tl}     |\___/|      /   \//  .\
+                          {$tl}  /O  O  \__  /    //  | \ \           *----*
+                            /     /  \/_/    //   |  \  \          \   |
+                            @___@`    \/_   //    |   \   \         \/\ \
+                           0/0/|       \/_ //     |    \    \         \  \
+                       0/0/0/0/|        \///      |     \     \       |  |
+                    0/0/0/0/0/_|_ /   (  //       |      \     _\     |  /
+                 0/0/0/0/0/0/`/,_ _ _/  ) ; -.    |    _ _\.-~       /   /
+                             ,-\}        _      *-.|.-~-.           .~    ~
+            \     \__/        `/\      /                 ~-. _ .-~      /
+             \____({$el}{$er})           *.   \}            \{                   /
+             (    (--)          .----~-.\        \-`                 .~
+             //__\\  \__ Ack!   ///.----..<        \             _ -~
+            //    \\               ///-._ _ _ _ _ _ _\{^ - - - - ~
+EOC
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    return bless $self, $class;
+}
+
+sub as_string 
+{
+    my $self = shift;
+    return $self->SUPER::as_string($dragon_and_cow);
+}

perl/cows/Example.pm

@@ -0,0 +1,149 @@
+package Acme::Cow::Example;
+
+use strict;
+
+use Acme::Cow;
+
+@Acme::Cow::Example::ISA = qw(Acme::Cow);
+
+my $generic_ascii_art = <<'EOC'; 
+{$balloon}
+                       {$tr} 
+     {$el}{$er}               {$tr}
+ ___________________
+/ Insert cute ASCII \
+\ artwork here.     /
+ -------------------
+      {$U}
+EOC
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    $self->over(24);
+    return $self;
+}
+
+sub as_string
+{
+    my $self = shift;
+    return $self->SUPER::as_string($generic_ascii_art);
+}
+
+1;
+__END__
+=pod
+
+=head1 NAME
+
+Acme::Cow::Example - How to write a "derived cow"
+
+=head1 SYNOPSIS
+
+    package Acme::Cow::MyCow;
+    use Acme::Cow;
+    @Acme::Cow::MyCow::ISA = qw(Acme::Cow);
+    
+    my $my_cow = <<'EOC';
+    ... template goes here ...
+    EOC
+
+    sub new { ... }
+
+    sub as_string { ... }
+
+=head1 DESCRIPTION
+
+First, put together your template as described in L<Acme::Cow>,
+using L<Text::Template> as a reference.  It is recommended that
+you store this template in a variable in your package's namespace.
+B<Your template should not have tab characters in it.>  This will
+cause ugly things to happen.
+
+Your C<new> method will likely want to look a lot like this:
+
+    sub new 
+    {
+	my $proto = shift;
+	my $class = ref $proto || $proto;
+	my $self = $class->SUPER::new();
+	return $self;
+    }
+
+Assuming you stored the template as C<$my_cow> then
+your C<as_string> method will likely want to be like this:
+
+    sub as_string
+    {
+	my $self = shift;
+	return $self->SUPER::as_string($my_cow);
+    }
+
+Below, we present the actual code in this module, so you can see
+it in action.  Yes, you can use this module to produce ASCII art.
+No, it won't be very exciting.
+
+=head1 Acme::Cow::Example code
+
+    package Acme::Cow::Example;
+
+    use strict;
+
+    use Acme::Cow;
+
+    @Acme::Cow::Example::ISA = qw(Acme::Cow);
+
+    my $generic_ascii_art = <<'EOC'; 
+    {$balloon}
+			   {$tr} 
+	 {$el}{$er}               {$tr}
+     ___________________
+    / Insert cute ASCII \
+    \ artwork here.     /
+     -------------------
+	  {$U}
+    EOC
+
+    sub new 
+    {
+	my $proto = shift;
+	my $class = ref $proto || $proto;
+	my $self = $class->SUPER::new();
+	$self->over(24);
+	return $self;
+    }
+
+    sub as_string
+    {
+	my $self = shift;
+	return $self->SUPER::as_string($generic_ascii_art);
+    }
+
+=head1 HIGHLIGHTS
+
+The C<{$balloon}> directive is flush left, but due to the call to
+C<over()> in the C<new()> method, it will be shoved over 24 spaces
+to the right, to line up with the thought/speech lines (represented
+by C<{$tr}>).
+
+=head1 SAVING WORK
+
+Included with the C<Acme::Cow> distribution is a short program
+called C<cowpm> which takes care of most of the boilerplate stuff
+for you.  It's almost as simple as I<just add ASCII art> but there's
+still a bit that you have to fill in.  It has its own documentation;
+you should peruse L<cowpm>.
+
+=head1 SEE ALSO
+
+L<Acme::Cow>, L<cowpm>
+
+=head1 AUTHOR
+
+Tony Monroe <tmonroe plus perl at nog dot net>
+
+=head1 BUGS
+
+Very few.

perl/cows/Frogs.pm

@@ -0,0 +1,35 @@
+package Acme::Cow::Frogs;
+
+use strict;
+
+use Acme::Cow;
+
+@Acme::Cow::Frogs::ISA = qw(Acme::Cow);
+
+my $frogs = <<'EOC'; 
+{$balloon}
+                                              {$tr}
+                                            {$tr}
+          oO)-.                       .-(Oo
+         /__  _\                     /_  __\
+         \  \(  |     ()~()         |  )/  /
+          \__|\ |    (-___-)        | /|__/
+          '  '--'    ==`-'==        '--'  '
+EOC
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    $self->over(46);
+    return bless $self, $class;
+}
+
+sub as_string
+{
+    my $self = shift;
+    return $self->SUPER::as_string($frogs);
+}
+
+1;

perl/cows/MechAndCow.pm

@@ -0,0 +1,40 @@
+package Acme::Cow::MechAndCow;
+use strict;
+use Acme::Cow;
+@Acme::Cow::MechAndCow::ISA = qw(Acme::Cow);
+my $mech_and_cow = <<'EOC';
+{$balloon}
+                {$tl}                   ,-----.
+                  {$tl}                 |     |
+                    {$tl}            ,--|     |-.
+                         __,----|  |     | |
+                       ,;::     |  `_____' |
+                       `._______|    i^i   |
+                                `----| |---'| .
+                           ,-------._| |== ||//
+                           |       |_|P`.  /'/
+                           `-------' 'Y Y/'/'
+                                     .==\ /_\
+   ^__^                             /   /'|  `i
+   ({$el}{$er})\_______                   /'   /  |   |
+   (__)\       )\/\             /'    /   |   `i
+    {$U} ||----w |           ___,;`----'.___L_,-'`\__
+       ||     ||          i_____;----\.____i""\____\
+EOC
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    $self->over(10);
+    return bless $self, $class;
+}
+
+sub as_string
+{
+    my $self = shift;
+    return $self->SUPER::as_string($mech_and_cow);
+}
+
+1;

perl/cows/Stegosaurus.pm

@@ -0,0 +1,38 @@
+package Acme::Cow::Stegosaurus;
+use strict;
+use Acme::Cow;
+@Acme::Cow::Stegosaurus::ISA = qw(Acme::Cow);
+my $stegosaurus = <<'EOC';
+{$balloon}
+                {$tr}                  .       .
+              {$tr}                   / `.   .' " 
+            {$tr}             .---.  <    > <    >  .---.
+                         |    \  \ - ~ ~ - /  /    |
+         _____          ..-~             ~-..-~
+        |     |   \~~~\.'                    `./~~~/
+       ---------   \__/                        \__/
+      .'  O    \     /               /       \  " 
+     (_____,    `._.'               |         \}  \/~~~/
+      `----.          /       \}     |        /    \__/
+            `-.      |       /      |       /      `. ,~~|
+                ~-.__|      /_ - ~ ^|      /- _      `..-'   
+                     |     /        |     /     ~-.     `-. _  _  _
+                     |_____|        |_____|         ~ - . _ _ _ _ _>
+EOC
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    $self->over(20);
+    return bless $self, $class;
+}
+
+sub as_string
+{
+    my $self = shift;
+    return $self->SUPER::as_string($stegosaurus);
+}
+
+1;

perl/cows/TextBalloon.pm

@@ -0,0 +1,207 @@
+package Acme::Cow::TextBalloon;
+
+use strict;
+
+my $rcs_id = q$Id$;
+
+=pod
+
+=head1 NAME
+
+Acme::Cow::TextBalloon - A balloon of text
+
+=head1 SYNOPSIS
+
+  use Acme::Cow::TextBalloon;
+
+  $x = new Acme::Cow::TextBalloon;
+  $x->add("bunch of text");
+  $x->wrapcolumn(29);
+
+  $y = new Acme::Cow::TextBalloon;
+  $y->adjust(0);
+  $y->add("more text");
+
+=head1 DESCRIPTION
+
+C<Acme::Cow::TextBalloon> Creates and manipulates balloons of text,
+optionally printing them.  One may notice that the methods in this
+module are named very similarly to those in C<Acme::Cow>; that's
+because most of them have to do with the balloon rather than the
+cow.
+
+=cut
+
+use Text::Tabs;
+use Text::Wrap;
+
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = {
+	fill => 1,
+	mode => 'say',
+	over => 0,
+	text => [ ],
+	wrap => 40,
+    };
+    return bless $self, $class;
+}
+
+sub wrapcolumn
+{
+    my $self = shift;
+    if (@_) {
+	$self->{'wrap'} = $_[0];
+    } 
+    return $self->{'wrap'};
+}
+
+sub mode
+{
+    my $self = shift;
+    return $self->{'mode'};
+}
+
+sub think 
+{
+    my $self = shift;
+    $self->{'mode'} = "think";
+}
+
+sub say 
+{
+    my $self = shift;
+    $self->{'mode'} = "say";
+}
+
+sub print 
+{
+    my $self = shift;
+    $self->{'mode'} = "think";
+}
+
+sub adjust
+{
+    my $self = shift;
+    if (@_) {
+	$self->{'fill'} = $_[0];
+    } 
+    return $self->{'fill'};
+}
+
+sub over
+{
+    my $self = shift;
+    if (@_) {
+	$self->{'over'} = $_[0];
+    } 
+    return $self->{'over'};
+}
+
+sub as_list
+{
+    my $self = shift;
+    return $self->_construct();
+}
+
+sub as_string 
+{
+    my $self = shift;
+    return join('', $self->_construct());
+}
+
+sub add
+{
+    my $self = shift;
+    push @{$self->{'text'}}, @_;
+    return $self->{'text'};
+}
+
+sub text
+{
+    my $self = shift;
+    if (@_) {
+	my @l = @_;
+	$self->{'text'} = \@l;
+    }
+    return $self->{'text'};
+}
+
+sub _maxlength 
+{
+    my ($len, $max);
+    $max = -1;
+    for my $i (@_) {
+        $len = length $i;
+        $max = $len if ($len > $max);
+    }
+    return $max;
+}
+
+sub _fill_text
+{
+    my $self = shift;
+    for my $i (@{$self->{'text'}}) {
+	$i =~ s/\s+$//;
+    }
+    $Text::Tabs::tabstop = 8;
+    my @expanded = Text::Tabs::expand(@{$self->{'text'}});
+    unless ($self->{'fill'}) {
+	return @expanded;
+    } 
+    $Text::Wrap::columns = $self->{'wrap'};
+    my @filled = split("\n", Text::Wrap::wrap("", "", @expanded));
+    $Text::Tabs::tabstop = 2;	# Defeat a dumb heuristic.
+    my @final = expand(@filled);
+    return @final;
+}
+
+sub _construct
+{
+    my $self = shift;
+    my $mode = $self->{'mode'};
+    my @message = $self->_fill_text();
+    my $max = _maxlength(@message);
+    my $max2 = $max + 2;        ## border space fudge.
+    my @border; ## up-left, up-right, down-left, down-right, left, right
+    my @balloon_lines = ();
+    my $shove = " " x $self->{'over'};
+    my $format = "$shove%s %-${max}s %s\n";
+    if ($mode eq think) {
+        @border = qw[ ( ) ( ) ( ) ];
+    } elsif (@message < 2) {
+        @border = qw[ < > ];
+    } else {
+	@border = ( "/", "\\", "\\", "/", "|", "|" );
+    }
+    push(@balloon_lines,
+        "$shove " . ("_" x $max2) . "\n" ,
+        sprintf($format, $border[0], $message[0], $border[1]),
+        (@message < 2 ? "" :
+            map { sprintf($format, $border[4], $_, $border[5]) }
+                @message[1 .. $#message - 1]),
+        (@message < 2 ? "" :
+            sprintf($format, $border[2], $message[$#message], $border[3])),
+        "$shove " . ("-" x $max2) . "\n"
+    );
+    return @balloon_lines;
+}
+
+
+=pod
+
+=head1 AUTHOR
+
+Tony Monroe E<lt>tmonroe+perl@nog.netE<gt>
+
+=head1 SEE ALSO
+
+L<Acme::Cow>
+
+=cut
+
+1;
+__END__

perl/cows/TuxStab.pm

@@ -0,0 +1,43 @@
+package Acme::Cow::TuxStab;
+use strict;
+use Acme::Cow;
+@Acme::Cow::TuxStab::ISA = qw(Acme::Cow);
+my $tux_being_stabbed = <<'EOC';
+{$balloon}
+             {$tl}            ,        ,
+               {$tl}         /(        )`
+                 {$tl}       \ \___   / |
+                        /- _  `-/  '
+                       (/\/ \ \   /\
+                       / /   | `    \
+                       O O   ) /    |
+                       `-^--'`<     '
+     .--.             (_.)  _  )   /
+    |o_o |             `.___/`    /
+    |:_/ |              `-----' /
+   //<- \ \----.     __ / __   \
+  (|  <- | )---|====O)))==) \) /====
+ /'\ <- _/`\---'    `--' `.__,' \
+ \___)=(___/            |        |
+                         \       /
+                    ______( (_  / \______
+                  ,'  ,-----'   |        \
+                  `--\{__________)        \/
+EOC
+
+sub new 
+{
+    my $proto = shift;
+    my $class = ref $proto || $proto;
+    my $self = $class->SUPER::new();
+    $self->over(8);
+    return bless $self, $class;
+}
+
+sub as_string
+{
+    my $self = shift;
+    return $self->SUPER::as_string($tux_being_stabbed);
+}
+
+1;

perl/cows/beavis.zen.cow

@@ -0,0 +1,23 @@
+##
+## Beavis, with Zen philosophy removed.
+##
+$the_cow = <<EOC;
+   $thoughts         __------~~-,
+    $thoughts      ,'            ,
+          /               \\
+         /                :
+        |                  '
+        |                  |
+        |                  |
+         |   _--           |
+         _| =-.     .-.   ||
+         o|/o/       _.   |
+         /  ~          \\ |
+       (____\@)  ___~    |
+          |_===~~~.`    |
+       _______.--~     |
+       \\________       |
+                \\      |
+              __/-___-- -__
+             /            _ \\
+EOC

perl/cows/blowfish.cow

@@ -0,0 +1,29 @@
+##
+## Blowfish
+##
+$the_cow = <<EOC;
+   $thoughts
+    $thoughts
+               |    .
+           .   |L  /|
+       _ . |\\ _| \\--+._/| .
+      / ||\\| Y J  )   / |/| ./
+     J  |)'( |        ` F`.'/
+   -<|  F         __     .-<
+     | /       .-'. `.  /-. L___
+     J \\      <    \\  | | O\\|.-'
+   _J \\  .-    \\/ O | | \\  |F
+  '-F  -<_.     \\   .-'  `-' L__
+ __J  _   _.     >-'  )._.   |-'
+ `-|.'   /_.           \\_|   F
+   /.-   .                _.<
+  /'    /.'             .'  `\\
+   /L  /'   |/      _.-'-\\
+  /'J       ___.---'\\|
+    |\\  .--' V  | `. `
+    |/`. `-.     `._)
+       / .-.\\
+ VK    \\ (  `\\
+        `.\\
+
+EOC

perl/cows/bong.cow

@@ -0,0 +1,16 @@
+##
+## A cow with a bong, from lars@csua.berkeley.edu
+##
+$the_cow = <<EOC;
+         $thoughts
+          $thoughts
+            ^__^ 
+    _______/($eyes)
+/\\/(       /(__)
+   | W----|| |~|
+   ||     || |~|  ~~
+             |~|  ~
+             |_| o
+             |#|/
+            _+#+_
+EOC

perl/cows/bud-frogs.cow

@@ -0,0 +1,12 @@
+##
+## The Budweiser frogs
+##
+$the_cow = <<EOC;
+     $thoughts
+      $thoughts
+          oO)-.                       .-(Oo
+         /__  _\\                     /_  __\\
+         \\  \\(  |     ()~()         |  )/  /
+          \\__|\\ |    (-___-)        | /|__/
+          '  '--'    ==`-'==        '--'  '
+EOC

perl/cows/bunny.cow

@@ -0,0 +1,10 @@
+##
+## A cute little wabbit
+##
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts   \\
+        \\ /\\
+        ( )
+      .( o ).
+EOC

perl/cows/cheese.cow

@@ -0,0 +1,23 @@
+##
+## The cheese from milk & cheese
+##
+$the_cow = <<EOC;
+   $thoughts
+    $thoughts
+      _____   _________
+     /     \\_/         |
+    |                 ||
+    |                 ||
+   |    ###\\  /###   | |
+   |     0  \\/  0    | |
+  /|                 | |
+ / |        <        |\\ \\
+| /|                 | | |
+| |     \\_______/   |  | |
+| |                 | / /
+/||                 /|||
+   ----------------|
+        | |    | |
+        ***    ***
+       /___\\  /___\\
+EOC

perl/cows/cower.cow

@@ -0,0 +1,14 @@
+##
+## A cowering cow
+##
+$the_cow = <<EOC;
+     $thoughts
+      $thoughts
+        ,__, |    | 
+        (oo)\\|    |___
+        (__)\\|    |   )\\_
+             |    |_w |  \\
+             |    |  ||   *
+
+             Cower....
+EOC

perl/cows/daemon.cow

@@ -0,0 +1,24 @@
+##
+## 4.4 >> 5.4
+##
+$the_cow = <<EOC;
+   $thoughts         ,        ,
+    $thoughts       /(        )`
+     $thoughts      \\ \\___   / |
+            /- _  `-/  '
+           (/\\/ \\ \\   /\\
+           / /   | `    \\
+           O O   ) /    |
+           `-^--'`<     '
+          (_.)  _  )   /
+           `.___/`    /
+             `-----' /
+<----.     __ / __   \\
+<----|====O)))==) \\) /====
+<----'    `--' `.__,' \\
+             |        |
+              \\       /
+        ______( (_  / \\______
+      ,'  ,-----'   |        \\
+      `--{__________)        \\/
+EOC

perl/cows/default.cow

@@ -0,0 +1,7 @@
+$the_cow = <<"EOC";
+        $thoughts   ^__^
+         $thoughts  ($eyes)\\_______
+            (__)\\       )\\/\\
+             $tongue ||----w |
+                ||     ||
+EOC

perl/cows/dragon-and-cow.cow

@@ -0,0 +1,21 @@
+##
+## A dragon smiting a cow, possible credit to kube@csua.berkeley.edu
+##
+$the_cow = <<EOC;
+                       $thoughts                    ^    /^
+                        $thoughts                  / \\  // \\
+                         $thoughts   |\\___/|      /   \\//  .\\
+                          $thoughts  /O  O  \\__  /    //  | \\ \\           *----*
+                            /     /  \\/_/    //   |  \\  \\          \\   |
+                            \@___\@`    \\/_   //    |   \\   \\         \\/\\ \\
+                           0/0/|       \\/_ //     |    \\    \\         \\  \\
+                       0/0/0/0/|        \\///      |     \\     \\       |  |
+                    0/0/0/0/0/_|_ /   (  //       |      \\     _\\     |  /
+                 0/0/0/0/0/0/`/,_ _ _/  ) ; -.    |    _ _\\.-~       /   /
+                             ,-}        _      *-.|.-~-.           .~    ~
+            \\     \\__/        `/\\      /                 ~-. _ .-~      /
+             \\____($eyes)           *.   }            {                   /
+             (    (--)          .----~-.\\        \\-`                 .~
+             //__\\\\  \\__ Ack!   ///.----..<        \\             _ -~
+            //    \\\\               ///-._ _ _ _ _ _ _{^ - - - - ~
+EOC

perl/cows/dragon.cow

@@ -0,0 +1,21 @@
+##
+## The Whitespace Dragon
+##
+$the_cow = <<EOC;
+      $thoughts                    / \\  //\\
+       $thoughts    |\\___/|      /   \\//  \\\\
+            /0  0  \\__  /    //  | \\ \\    
+           /     /  \\/_/    //   |  \\  \\  
+           \@_^_\@'/   \\/_   //    |   \\   \\ 
+           //_^_/     \\/_ //     |    \\    \\
+        ( //) |        \\///      |     \\     \\
+      ( / /) _|_ /   )  //       |      \\     _\\
+    ( // /) '/,_ _ _/  ( ; -.    |    _ _\\.-~        .-~~~^-.
+  (( / / )) ,-{        _      `-.|.-~-.           .~         `.
+ (( // / ))  '/\\      /                 ~-. _ .-~      .-~^-.  \\
+ (( /// ))      `.   {            }                   /      \\  \\
+  (( / ))     .----~-.\\        \\-'                 .~         \\  `. \\^-.
+             ///.----..>        \\             _ -~             `.  ^-`  ^-_
+               ///-._ _ _ _ _ _ _}^ - - - - ~                     ~-- ,.-~
+                                                                  /.-~
+EOC

perl/cows/elephant-in-snake.cow

@@ -0,0 +1,14 @@
+##
+## Do we need to explain this?
+##
+$the_cow = <<EOC;
+   $thoughts
+    $thoughts              ....       
+           ........    .      
+          .            .      
+         .             .      
+.........              .......
+..............................
+
+Elephant inside ASCII snake
+EOC

perl/cows/elephant.cow

@@ -0,0 +1,15 @@
+##
+## An elephant out and about
+##
+$the_cow = <<EOC;
+ $thoughts     /\\  ___  /\\
+  $thoughts   // \\/   \\/ \\\\
+     ((    O O    ))
+      \\\\ /     \\ //
+       \\/  | |  \\/ 
+        |  | |  |  
+        |  | |  |  
+        |   o   |  
+        | |   | |  
+        |m|   |m|  
+EOC

perl/cows/eyes.cow

@@ -0,0 +1,16 @@
+##
+## Evil-looking eyes
+##
+$the_cow = <<EOC;
+    $thoughts
+     $thoughts
+                                   .::!!!!!!!:.
+  .!!!!!:.                        .:!!!!!!!!!!!!
+  ~~~~!!!!!!.                 .:!!!!!!!!!UWWW\$\$\$ 
+      :\$\$NWX!!:           .:!!!!!!XUWW\$\$\$\$\$\$\$\$\$P 
+      \$\$\$\$\$##WX!:      .<!!!!UW\$\$\$\$"  \$\$\$\$\$\$\$\$# 
+      \$\$\$\$\$  \$\$\$UX   :!!UW\$\$\$\$\$\$\$\$\$   4\$\$\$\$\$* 
+      ^\$\$\$B  \$\$\$\$\\     \$\$\$\$\$\$\$\$\$\$\$\$   d\$\$R" 
+        "*\$bd\$\$\$\$      '*\$\$\$\$\$\$\$\$\$\$\$o+#" 
+             """"          """"""" 
+EOC

perl/cows/flaming-sheep.cow

@@ -0,0 +1,15 @@
+##
+## The flaming sheep, contributed by Geordan Rosario (geordan@csua.berkeley.edu)
+##
+$the_cow = <<EOC;
+  $thoughts            .    .     .   
+   $thoughts      .  . .     `  ,     
+    $thoughts    .; .  : .' :  :  : . 
+     $thoughts   i..`: i` i.i.,i  i . 
+      $thoughts   `,--.|i |i|ii|ii|i: 
+           U${eyes}U\\.'\@\@\@\@\@\@`.||' 
+           \\__/(\@\@\@\@\@\@\@\@\@\@)'  
+                (\@\@\@\@\@\@\@\@)    
+                `YY~~~~YY'    
+                 ||    ||     
+EOC

perl/cows/ghostbusters.cow

@@ -0,0 +1,26 @@
+##
+## Ghostbusters!
+##
+$the_cow = <<EOC;
+          $thoughts
+           $thoughts
+            $thoughts          __---__
+                    _-       /--______
+               __--( /     \\ )XXXXXXXXXXX\\v.
+             .-XXX(   O   O  )XXXXXXXXXXXXXXX-
+            /XXX(       U     )        XXXXXXX\\
+          /XXXXX(              )--_  XXXXXXXXXXX\\
+         /XXXXX/ (      O     )   XXXXXX   \\XXXXX\\
+         XXXXX/   /            XXXXXX   \\__ \\XXXXX
+         XXXXXX__/          XXXXXX         \\__---->
+ ---___  XXX__/          XXXXXX      \\__         /
+   \\-  --__/   ___/\\  XXXXXX            /  ___--/=
+    \\-\\    ___/    XXXXXX              '--- XXXXXX
+       \\-\\/XXX\\ XXXXXX                      /XXXXX
+         \\XXXXXXXXX   \\                    /XXXXX/
+          \\XXXXXX      >                 _/XXXXX/
+            \\XXXXX--__/              __-- XXXX/
+             -XXXXXXXX---------------  XXXXXX-
+                \\XXXXXXXXXXXXXXXXXXXXXXXXXX/
+                  ""VXXXXXXXXXXXXXXXXXXV""
+EOC

perl/cows/hellokitty.cow

@@ -0,0 +1,11 @@
+##
+## Hello Kitty
+##
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts
+      /\\_)o<
+     |      \\
+     | O . O|
+      \\_____/
+EOC

perl/cows/kiss.cow

@@ -0,0 +1,26 @@
+##
+## A lovers' empbrace
+##
+$the_cow = <<EOC;
+     $thoughts
+      $thoughts
+             ,;;;;;;;,
+            ;;;;;;;;;;;,
+           ;;;;;'_____;'
+           ;;;(/))))|((\\
+           _;;((((((|))))
+          / |_\\\\\\\\\\\\\\\\\\\\\\\\
+     .--~(  \\ ~))))))))))))
+    /     \\  `\\-(((((((((((\\\\
+    |    | `\\   ) |\\       /|)
+     |    |  `. _/  \\_____/ |
+      |    , `\\~            /
+       |    \\  \\           /
+      | `.   `\\|          /
+      |   ~-   `\\        /
+       \\____~._/~ -_,   (\\
+        |-----|\\   \\    ';;
+       |      | :;;;'     \\
+      |  /    |            |
+      |       |            |
+EOC

perl/cows/kitty.cow

@@ -0,0 +1,12 @@
+##
+## A kitten of sorts, I think
+##
+$the_cow = <<EOC;
+     $thoughts
+      $thoughts
+       ("`-'  '-/") .___..--' ' "`-._
+         ` *_ *  )    `-.   (      ) .`-.__. `)
+         (_Y_.) ' ._   )   `._` ;  `` -. .-'
+      _.. `--'_..-_/   /--' _ .' ,4
+   ( i l ),-''  ( l i),'  ( ( ! .-'    
+EOC

perl/cows/koala.cow

@@ -0,0 +1,12 @@
+##
+## From the canonical koala collection
+##
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts
+       ___  
+     {~._.~}
+      ( Y )
+     ()~*~()   
+     (_)-(_)   
+EOC

perl/cows/kosh.cow

@@ -0,0 +1,19 @@
+##
+## It's a Kosh Cow!
+##
+$the_cow = <<EOC;
+    $thoughts
+     $thoughts
+      $thoughts
+  ___       _____     ___
+ /   \\     /    /|   /   \\
+|     |   /    / |  |     |
+|     |  /____/  |  |     |     
+|     |  |    |  |  |     |
+|     |  | {} | /   |     |
+|     |  |____|/    |     |
+|     |    |==|     |     |
+|      \\___________/      |
+|                         |
+|                         |
+EOC

perl/cows/luke-koala.cow

@@ -0,0 +1,15 @@
+##
+## From the canonical koala collection
+##
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts          .
+       ___   //
+     {~._.~}// 
+      ( Y )K/  
+     ()~*~()   
+     (_)-(_)   
+     Luke    
+     Sywalker
+     koala   
+EOC

perl/cows/meow.cow

@@ -0,0 +1,15 @@
+##
+## A meowing tiger?
+##
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts ,   _ ___.--'''`--''//-,-_--_.
+      \\`"' ` || \\\\ \\ \\\\/ / // / ,-\\\\`,_
+     /'`  \\ \\ || Y  | \\|/ / // / - |__ `-,
+    /\@"\\  ` \\ `\\ |  | ||/ // | \\/  \\  `-._`-,_.,
+   /  _.-. `.-\\,___/\\ _/|_/_\\_\\/|_/ |     `-._._)
+   `-'``/  /  |  // \\__/\\__  /  \\__/ \\
+        `-'  /-\\/  | -|   \\__ \\   |-' |
+          __/\\ / _/ \\/ __,-'   ) ,' _|'
+         (((__/(((_.' ((___..-'((__,'
+EOC

perl/cows/milk.cow

@@ -0,0 +1,21 @@
+##
+## Milk from Milk and Cheese
+##
+$the_cow = <<EOC;
+ $thoughts     ____________ 
+  $thoughts    |__________|
+      /           /\\
+     /           /  \\
+    /___________/___/|
+    |          |     |
+    |  ==\\ /== |     |
+    |   O   O  | \\ \\ |
+    |     <    |  \\ \\|
+   /|          |   \\ \\
+  / |  \\_____/ |   / /
+ / /|          |  / /|
+/||\\|          | /||\\/
+    -------------|   
+        | |    | | 
+       <__/    \\__>
+EOC

perl/cows/moofasa.cow

@@ -0,0 +1,14 @@
+##
+## MOOfasa.
+##
+$the_cow = <<EOC;
+       $thoughts    ____
+        $thoughts  /    \\
+          | ^__^ |
+          | ($eyes) |______
+          | (__) |      )\\/\\
+           \\____/|----w |
+                ||     ||
+
+	         Moofasa
+EOC

perl/cows/moose.cow

@@ -0,0 +1,9 @@
+$the_cow = <<EOC;
+  $thoughts
+   $thoughts   \\_\\_    _/_/
+    $thoughts      \\__/
+           ($eyes)\\_______
+           (__)\\       )\\/\\
+            $tongue ||----w |
+               ||     ||
+EOC

perl/cows/mutilated.cow

@@ -0,0 +1,10 @@
+##
+## A mutilated cow, from aspolito@csua.berkeley.edu
+##
+$the_cow = <<EOC;
+       $thoughts   \\_______
+ v__v   $thoughts  \\   O   )
+ ($eyes)      ||----w |
+ (__)      ||     ||  \\/\\
+  $tongue
+EOC