Adding a minor haskell script example