method edit_header () = let param = C.text ~f: (fun s -> report_header <- s) Rep_messages.header report_header in ignore (C.simple_get Rep_messages.edit_header [param])