anchor.diff:  
   extract_child(Child) when is_list(Child#child.pid) ->
       [{nb_children, length(Child#child.pid)},
  -     {name, Child#child.name},
  +     {id, Child#child.name},
        {mfargs, Child#child.mfargs},
        {restart_type, Child#child.restart_type},
        {shutdown, Child#child.shutdown},
        {child_type, Child#child.child_type}];
   extract_child(Child) ->
       [{pid, Child#child.pid},
  -     {name, Child#child.name},
  +     {id, Child#child.name},
        {mfargs, Child#child.mfargs},
        {restart_type, Child#child.restart_type},
        {shutdown, Child#child.shutdown},
  
positive.code: -define(is_simple(State), State#state.strategy =:= simple_one_for_one).
  
  -callback init(Args :: term()) ->
      {ok, {{RestartStrategy :: strategy(),
             MaxR            :: non_neg_integer(),
             MaxT            :: non_neg_integer()},
             [ChildSpec :: child_spec()]}}
      | ignore.
  
  -define(restarting(_Pid_), {restarting,_Pid_}).
  
negative.code: 
  set_flags(Flags, State) ->
      try check_flags(Flags) of
  	#{strategy := Strategy, intensity := MaxIntensity, period := Period} ->
  	    {ok, State#state{strategy = Strategy,
  			     intensity = MaxIntensity,
  			     period = Period}}
  