anchor.diff:              Res = supervisor:start_child(SupRef, Child),
               _ = case Res of
                   {ok, undefined} ->
  -                    progress("not started~n");
  -                {ok, Pid} -> progress("~p.~n", [Pid]);
  +                    progress("not started");
  +                {ok, Pid} -> progress("~.0p.", [Pid]);
                   {ok, Pid, GroupInfo} ->
                           progress("~.0p ~.0p.", [Pid, GroupInfo]);
                   Error ->
  -                    progress("~nFailed to start ~p reason ~p~n", [Child, Error]),
  -                    progress("Supervisor ~p has childs: ~p~n",
  +                    progress("~nFailed to start ~.0p reason ~.0p~n", [Child, Error]),
  +                    progress("Supervisor ~.0p has childs: ~.0p~n",
                                 [SupRef, sup_which_children(SupRef)]),
                       Error
               end,
  
positive.code:                          supervisor:child_spec())
                 -> supervisor:startchild_ret().
  start_sup_as_child(Prefix, AtSup, SupAsChild) ->
      progress(Prefix ++ "supervisor ~.0p ~.0p~n",
               [element(1, SupAsChild), element(2, SupAsChild)]),
      Module = element(1, element(2, SupAsChild)),
      Args = element(3, element(2, SupAsChild)),
  
negative.code:                     end
                 end;
          Error ->
              progress(Prefix ++ " ~.0p~n", [Error]),
              Error
      end.
  
  