Update Problem2.hs