My Haskell Code