let fpp_header fmt d =
begin
d.d_title fmt ;
Format.pp_print_newline fmt () ;
( match d.d_source with
| Some { Lexing.pos_fname=f ; Lexing.pos_lnum=k } ->
Format.fprintf fmt "%s:%d: " f k
| None -> () ) ;
d.d_descr fmt ;
end