anchor.diff:    match stack with
     | [] -> t
   
  -  | Debug tm :: stack ->
  +  | Debug (tm, time_then) :: stack ->
       if Env.debug cfg.tcenv <| Options.Other "print_normalized_terms"
  -    then BU.print2 "Normalized %s to %s\n" (Print.term_to_string tm) (Print.term_to_string t);
  +    then begin
  +      let time_now = BU.now () in
  +      BU.print3 "Normalized (%s ms) %s\n\tto %s\n"
  +                   (BU.string_of_int (snd (BU.time_diff time_then time_now)))
  +                   (Print.term_to_string tm)
  +                   (Print.term_to_string t)
  +    end;
       rebuild cfg env stack t
   
     | Steps (s, ps, dl) :: stack ->
  
positive.code:  | Meta     of S.metadata * Range.range
   | Let      of env * binders * letbinding * Range.range
   | Steps    of steps * list<primitive_step> * list<Env.delta_level>
   | Debug    of term
  
  type stack = list<stack_elt>
  
  
negative.code:                 then [Unfold Delta_constant]
                  else [NoDelta] in
              let cfg' = {cfg with steps=s; delta_level=delta_level} in
              let stack' =
                let tail = Steps (cfg.steps, cfg.primitive_steps, cfg.delta_level)::stack in
                if Env.debug cfg.tcenv <| Options.Other "print_normalized_terms"
                then Debug(t, BU.now())::tail
                else tail in
              norm cfg' env stack' tm
  
            | Tm_app({n=Tm_constant FC.Const_reify}, a1::a2::rest) ->
  