Update Lab6.hs