Update project1.hs