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