Update ex8.hs