(defun overlap? (x y)
  (let ((norm (normalize x y)))
    (let ((u (first norm)) (v (second norm)))
      (let ((u1 (first u)) (u2 (second u)) (v1 (first v)) (v2 (second v)))
	(not (> v1 u2))))))

(format t "Part One: ~d~%" (part-one))
;(part-one)

(defun part-two ()
  (length (loop for pair in *data*
	when (overlap? (first pair) (second pair)) collect t)))
(format t "Part One: ~d, Part Two: ~d~%" (part-one) (part-two))
;(print (part-two))