Playing aroud with Haskell !