A tcp socket based joke server for April 1

The joke server uses the Linux/Unix "fortune" database, reworked to be a Tcl list with one joke per list element.

Here's the files