Update Ex1.hs