Update Solution1.hs