I've one-upped this with:

infiniteSteamOfReverseConciousness :: Joyce -> StdGen -> [Word]

A time-reversed stream of conciousness, with its beginning an infinite number of words away.