Playing around with haskell