[Haskell] Litle problem with a haskell Function...