Add haskell code for week 2