Working on Haskell Asignment 2