second option in haskell programme