Add haskell hw 1