Update Lab4.hs