anchor.diff:  
   let normalize_with_primitive_steps ps s e t =
       let c = config' ps s e in
  -    log c (fun () -> BU.print1 "Starting normalizer for (%s)\n" (Print.term_to_string t));
  -    norm c [] [] t
  +    log_top c (fun () -> BU.print1 "Starting normalizer for (%s) {\n" (Print.term_to_string t));
  +    let r = norm c [] [] t in
  +    log_top c (fun () -> BU.print1 "}\nNormalization result = (%s)\n" (Print.term_to_string r));
  +    r
  +
   let normalize s e t = normalize_with_primitive_steps [] s e t
   let normalize_comp s e t = norm_comp (config s e) [] t
   let normalize_universe env u = norm_universe (config [] env) [] u
  
positive.code:         | _ -> d in
      {tcenv=e;
       debug = { gen = Env.debug e (Options.Other "Norm")
               ; primop = Env.debug e (Options.Other "Primops")
               ; unfolding = Env.debug e (Options.Other "Unfolding")
               ; b380 = Env.debug e (Options.Other "380")
  
negative.code: 
  type debug_switches = {
      gen              : bool;
      top              : bool;
      primop           : bool;
      unfolding        : bool;
      b380             : bool;
  