1 (defun good-count-pairs (x)
2   (let ((pairs-table (make-hash-table :test #'eq)))