Haskell script