A haskell test program