Update Problem6.hs