playing with haskell