anchor.diff:  	    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) ->
  
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:     {exports,E} = lists:keyfind(exports, 1, L),
      Time = get_compile_time(L),
      COpts = get_compile_options(L),
      format("Module: ~w~n", [M]),
      print_md5(L),
      format("Compiled: "),
      print_time(Time),
      print_object_file(M),
      format("Compiler options:  ~p~n", [COpts]),
      format("Exports: ~n",[]), print_exports(keysort(1, E)).
  
  print_object_file(Mod) ->
  