Update Lab2.hs