Update Lab5.hs