To aid producing test cases for Reader.
val write_epoch : unit ‑> unit
val write_end_of_header : unit ‑> unit