playing around with haskell