some test haskell