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