Added Lab1.hs