anchor.diff:        file:write_file(Filename, [Source]),
   
         % compile erl
  -      case compile:file(Filename, [binary, debug_info]) of
  +      Output = case compile:file(Filename, [binary, debug_info]) of
           % second arg is module name
           {ok, _, BeamCode} -> Diss({ok, Filename, BeamCode});
           error -> Diss(error)
  -      end
  +      end,
  +      io:format("~p~n", [Output])
       end,
       Filename = lists:nth(1, Args),
       Source = lists:nth(2, Args),
  
positive.code: %% -*- erlang -*-
  %% %%! -smp enable -sname factorial -mnesia debug verbose
  main(Args)->
      GenerateBeamFilename = fun(Filename) ->
        lists:concat([Filename, ".beam"])
      end,
  
negative.code:     end,
  
      WriteDissFile = fun(BeamFilename) ->
        DissFilename = lists:concat([BeamFilename, ".dmp"]),
        {ok,F}=file:open(DissFilename, [write]),
        io:format(F,"~p.~n",[beam_disasm:file(BeamFilename)]),
        file:close(F),
        DissFilename
      end,
  
      Diss = fun({ok, Filename, BeamCode}) ->
          BeamFilename = GenerateBeamFilename(Filename),
          WriteBeamFile(BeamFilename, BeamCode),
          DissFilename = WriteDissFile(BeamFilename),
          case Readlines(DissFilename) of
            {ok, Data} -> Data;
            error -> error
          end;
          (error) -> error
      end,
  
      Run = fun(Filename, Source) ->
  