Cray's _The Erotic Muse_ (required reading for this sort of thing) offers several versions and enough verses of "My Husband's a Mason." More are easy to invent.

I sent this up to DT in 1994 but it doesn't seem to have arrived yet. :-)

It's in Qbasic format & can also be beeped by any other PC version if line numbers are added..basica, GWBasic, etc.

' Use basic to run everything from here to the bottom ************
  ' Or don't.
  '
  ON KEY(7) GOSUB 3000: KEY(7) ON
  f$ = CHR$(34)
  CLS
  PRINT "Type  to abort"
  PRINT : PRINT "My Husband's a Mason"    

PLAY "O2 L4 MF T200 mn"
  PLAY "p16p2p2"
  time = 3/4
  PRINT
  '         /-downbeat   /         /         /
  PRINT "My hus-band's a ma-son, a ma-son, a ma-son,"
  PLAY " g  >c  c      c e  c    c d  d    d e  c   "
  '        /          /         /
  PRINT "A ve-ry fine ma-son is he."
  PLAY " e g  e  g    a  f   a  mlg2.msg2 mn"
  '          /           /            /            /
  PRINT "All day he lays bricks, lays bricks, lays bricks."
  PLAY " g   g   e  e    mle mnc e    mle mnc c    mlc mn  '         /              /             /     /
  PRINT "At night he comes home and lays me."
  PLAY " >g g     a  g     f    e   d    mlc2. mnc2"
  '                 /     /
  PRINT "    Tra la la,"
  PLAY "     g8  a8 mlg2. msg2 mn"
  '             /              /             /
  PRINT "    At night he comes home and lays me."
  PLAY "     g  g     a  g     f    e   d    mlc2. mnc2 p4"
  PRINT
  PRINT "My Husband's a butcher, a butcher, a butcher,"
  PRINT "A very fine butcher is he."
  PRINT "All day he stuffs sausage, stuffs sausage, stuffs sausage."
  PRINT "At night he comes home and stuffs me."
  PRINT "    Tra la la;   "
  PRINT "    At night he comes home and stuffs me."
  PRINT
  PRINT
  PRINT "a miner"
  PRINT "he bores holes"
  PRINT
  PRINT "a pilot"
  PRINT "he flies planes"
  PRINT
  PRINT "a jockey"
  PRINT "he rides horses"
  PRINT
  PRINT "a carpenter, carpenter, carpenter"
  PRINT "he pounds nails"
  PRINT
  PRINT
  PRINT "When sufficiently bored, type any character except "; f$; "í"; f$
  screwdriver$ = INPUT$(1)    

CLS
  PRINT
  PRINT "a glazier"
  PRINT "he blows glass"
  PRINT
  PRINT "a farmer"
  PRINT "he forks hay"
  PRINT
  PRINT "             -------------------------------------"
  PRINT    

PRINT "As printed in _The Erotic Muse._  Cray writes that it can be traced"
  PRINT "to the early 18th century - and the puns were probably old then. He"
  PRINT "gives several versions using `my father's a ...' which adds a nice"
  PRINT "incest aspect and quotes MacColl & Seeger: `the English and Scots"
  PRINT "traditional repertoires are rich in euphemistic songs and scores of"
  PRINT "trades and occupations have contributed their terminologies and"
  PRINT "their tools to the vocabularies of sexual symbolism."
  PRINT
  PRINT "Cray mentions `A German Clockmaker' as an example but says few songs"
  PRINT "of the type have much currency today."
  PRINT
  PRINT "I can think off hand of `The German Musicianer,' `The Molecatcher,'"
  PRINT "(a bit) `Bonnie Black Hare,' `The Cooper o' Cuddy."    

3000 '
  ' SYSTEM
  ' ***********************************************

HTML line breaks and preformat commands added (not that it helps a whole lot). --JoeClone, 30-Nov-01.