(defn contains-point? [rectangle point]
  (let [[[xr1 yr1] [xr2 xr2]] rectangle]
    [[xp yp] point]
    (and  (< xr1 xp xr2) (< yr1 yp yr1))))