Haskell test codes