rewrite Haskell post