This was posted to the Haskell Mailing lists 
on or about 18 July 2003 by:

"blaat blaat" 

I do not know who this person is, but the code is a good
example of higher-order stuff so I am using it here.

I assume that by posting to the Mailing List this code
is in the public domain.
