[Haskell] Garbage collection problem