Challege4 in Haskell