Create Lab4.hs