Update SolWeek4.hs