play with haskell