I've created perl scripts for fuck, shit, and goddamnit. they merely echo an array slice to the terminal, from a list of about 30 phrases. had 'em for about 15 years now.

  <root@ButtPirate>$ fuck
  I hope this computer dies of ass cancer.

always makes me feel a little better about life. this app might be more effective, though.