(def read-headers ((o s (stdin)))
  (accum a
    (whiler line (readline s) blank
      (a line))))