Update ex1.hs