Playing with haskell