[Haskell-beginners] Space leak in a fold even after the usual fixes