[Haskell-beginners] Query regarding an unusually behaving code