play with haskell some