Le design pattern ReaderT, en Haskell