let call level op args pp =
  if is_active level then
    begin
      whitespace level !indent;
      indent := !indent + 1;
      Format.eprintf "%s: %s <-- " level op;
      pp Format.err_formatter args;
      Format.eprintf "@." 
    end