Credit to Avi_. I added partial modifications, but Avi_ did all the work.