anchor.diff:      {exports,E} = lists:keyfind(exports, 1, L),
       Time = get_compile_time(L),
       COpts = get_compile_options(L),
  -    format("Module ~w compiled: ",[M]), print_time(Time),
  +    format("Module: ~w~n", [M]),
  +    print_md5(L),
  +    format("Compiled: "),
  +    print_time(Time),
  +    print_object_file(M),
       format("Compiler options:  ~p~n", [COpts]),
  -    print_object_file(M),
       format("Exports: ~n",[]), print_exports(keysort(1, E)).
   
   print_object_file(Mod) ->
  
positive.code: split_print_exports([], []) -> ok.
  
  print_time({Year,Month,Day,Hour,Min,_Secs}) ->
      format("Date: ~s ~w ~w, ", [month(Month),Day,Year]),
      format("Time: ~.2.0w.~.2.0w~n", [Hour,Min]);
  print_time(notime) ->
      format("No compile time info available~n",[]).
  
  
negative.code: 	    format("Object file: ~ts\n", [File]);
  	_ ->
  	    ignore
      end.
  
  print_md5(L) ->
      case lists:keyfind(md5, 1, L) of
          {md5,<<MD5:128>>} -> io:format("MD5: ~.16b~n",[MD5]);
          _ -> ok
      end.
  
  get_compile_time(L) ->
  