Update q15.hs