Added haskell version of script.