(define (get-day day)
  (filter (fn(e) (= day (e 1))) (array-list all-readings)))

(get-day "1993-03-05")