[Haskell] simple function: stack overflow in hugs vs none in ghc