- adding problem 2 in haskell