anchor.diff:      split_print_exports(X);
   print_exports([]) -> ok;
   print_exports([{F, A} |Tail]) ->
  -    format("         ~w/~w~n",[F, A]),
  +    format("         ~tw/~w~n",[F, A]),
       print_exports(Tail).
   
   split_print_exports(L) ->
  
positive.code: 
  split_print_exports([], [{F, A}|T]) ->
      Str = " ",
      format("~-30s~w/~w~n", [Str, F, A]),
      split_print_exports([], T);
  split_print_exports([{F1, A1}|T1], [{F2, A2} | T2]) ->
      Str = flatten(io_lib:format("~w/~w", [F1, A1])),
      format("~-30s~w/~w~n", [Str, F2, A2]),
      split_print_exports(T1, T2);
  split_print_exports([], []) -> ok.
  
  
negative.code:     Call = initial_call(Info),
      Reds  = fetch(reductions, Info),
      LM = length(fetch(messages, Info)),
      procformat(io_lib:format("~tw",[Name]),
  	       io_lib:format("~w",[Pid]),
  	       io_lib:format("~ts",[mfa_string(Call)]),
  	       integer_to_list(Reds), integer_to_list(LM)).
  
  procformat(Name, Pid, Call, Reds, LM) ->
      format("~-21ts ~-12s ~-25ts ~12s ~4s~n", [Name,Pid,Call,Reds,LM]).
  
  portline(Name, Info, Id) ->
      Cmd = fetch(name, Info),
      portformat(io_lib:format("~tw",[Name]),
  	       erlang:port_to_list(Id),
  	       Cmd).
  
  portformat(Name, Id, Cmd) ->
      format("~-21ts ~-15s ~-40ts~n", [Name,Id,Cmd]).
  
  %% pwd()
  %% cd(Directory)
  