(defn contains-point? [rectangle point]
  (let [[[x1 y1] [x2 y2]] rectangle]
    (let [[px py] point]

    (cond
        (and (<= x1 px x2) (<= y1 py y2)) true
        :else false
    )

  )
  )

)