Haskell Script