Added week 5 in haskell, didn't quite finish in time