anchor.diff:  			io:fwrite("mnesia is stopping\n")
   	end.
   %% @hidden
  -ts00([H | T], Acc) ->
  -	case mnesia:table_info(H, record_name) of
  -		gtt ->
  -			ts00(T, [H | Acc]);
  -		_ ->
  -			ts00(T, Acc)
  -	end;
  -ts00([], Acc) ->
  -	ts01(lists:reverse(Acc), 0, []).
  -%% @hidden
  -ts01([H | T], Max, Acc) ->
  +ts00([H | T], Max, Acc) ->
   	NewMax = case length(atom_to_list(H)) of
   		N when N > Max ->
   			N;
   		_ ->
   			Max
   	end,
  -	ts01(T, NewMax, [H | Acc]);
  -ts01([], Max, Acc) ->
  -	ts02(lists:reverse(Acc), Max, 0, []).
  -%% @hidden
  -ts02([H | T], NameLen, Max, Acc) ->
  +	ts00(T, NewMax, [H | Acc]);
  +ts00([], Max, Acc) ->
  +	ts01(lists:reverse(Acc), Max, 0, []).
  +%% @hidden
  +ts01([H | T], NameLen, Max, Acc) ->
   	Size = mnesia:table_info(H, size),
   	NewMax = case length(integer_to_list(Size)) of
   		N when N > Max ->
  
positive.code: -copyright('Copyright (c) 2016 - 2021 SigScale Global Inc.').
  
  %% export the user_default public API
  -export([help/0, ts/0, di/0, di/1, di/2, dc/0]).
  -export([ll/1, ll/2, ql/2, ql/3, ql/4]).
  
  -include("ocs.hrl").
  
negative.code: 		_ ->
  			Max
  	end,
  	ts01(T, NameLen, NewMax, [{H, Size} | Acc]);
  ts01([], NameLen, Max, Acc) ->
  	io:fwrite("Table sizes:\n"),
  	ts02(lists:reverse(Acc), NameLen, Max).
  %% @hidden
  ts02([{Name, Size} | T], NameLen, SizeLen) ->
  	io:fwrite("~*s: ~*b\n", [NameLen + 4, Name, SizeLen, Size]),
  	ts02(T, NameLen, SizeLen);
  ts02([], _, _) ->
  	ok.
  
  -spec td() -> ok.
  %% @doc Dipslay the current ocs table distribution.
  td() ->
  	Nodes = mnesia:system_info(db_nodes),
  	Running = mnesia:system_info(running_db_nodes),
  	io:fwrite("Table distribution:\n"),
  	io:fwrite("    Nodes:\n"),
  	io:fwrite("        running:  ~s\n", [snodes(Running)]),
  	io:fwrite("        stopped:  ~s\n", [snodes(Nodes -- Running)]),
  	io:fwrite("    Tables:\n"),
  	td0(tables()).
  %% @hidden
  td0([H | T]) ->
  	io:fwrite("        ~s:\n", [H]),
  	case mnesia:table_info(H, disc_copies) of
  		[] ->
  			ok;
  		Nodes1 ->
  			io:fwrite("            disc_copies:  ~s\n", [snodes(Nodes1)])
  	end,
  	case mnesia:table_info(H, ram_copies) of
  		[] ->
  			ok;
  		Nodes2 ->
  			io:fwrite("             ram_copies:  ~s\n", [snodes(Nodes2)])
  	end,
  	td0(T);
  td0([]) ->
  	ok.
  
  -spec di() -> Result
  