Update spiral-heap.hs