Did number 1 in haskell