Playing with haskell.