[Haskell] Fail <<loop>> ?