Update Class4.hs