Update Week2.hs