[Haskell-fr] Réduction CodeMesh