Update Problem3.hs