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: 
  %%% ------------------------------------------------------
  %%% Check that the children start specification is valid.
  %%% Shall be a six (6) tuple
  %%%    {Name, Func, RestartType, Shutdown, ChildType, Modules}
  %%% where Name is an atom
  %%%       Func is {Mod, Fun, Args} == {atom(), atom(), list()}
  %%%       RestartType is permanent | temporary | transient
  %%%       Shutdown = integer() > 0 | infinity | brutal_kill
  %%%       ChildType = supervisor | worker
  %%%       Modules = [atom()] | dynamic
  %%% Returns: {ok, [child_rec()]} | Error
  %%% ------------------------------------------------------
  
  
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}}
  