[Haskell-beginners] Excess mem consumption in file IO task