let output ((_,fmt) as log) ?(echo=false) stdout st =
let msg = Buffer.contents stdout in
begin
status log st ;
Format.pp_print_string fmt msg ;
Format.pp_print_newline fmt () ;
if (true || echo || Wp_parameters.debug_atleast 1) && is_error st
then Log.print_on_output "%t%s" pp_current msg
end