anchor.diff:  %% -*- erlang -*-
   %% %%! -smp enable -sname factorial -mnesia debug verbose
   main(Args)->
  +    DeleteFiles = fun(Files) ->
  +      % ok = file:del_dir( "docs" ),
  +      % ok = file:delete( "input.txt" )
  +      lists:foreach(fun(File) -> file:delete(File) end, Files)
  +    end,
  +
       DecodeData = fun(Data) ->
         case unicode:characters_to_list(Data) of
           {incomplete, _, _} -> {error, "Problem decoding"};
           {error, _, _} -> {error, "Problem decoding"};
  -        List -> List
  +        List -> {ok, List}
         end
       end,
   
  
positive.code:     Run = fun(Filename, Source) ->
        % create source file
        file:write_file(Filename, [Source]),
  
        % compile erl
        Output = case compile:file(Filename, [binary, debug_info]) of
          % second arg is module name
          {ok, _, BeamCode} -> Diss({ok, Filename, BeamCode});
          error -> {error, "Compilation error"}
        end,
        io:format("~p~n", [Output])
      end,
      Filename = lists:nth(1, Args),
  
negative.code:       escript:create(BeamFilename, [{beam, BeamCode}])
      end,
  
      WriteDissFile = fun(BeamFilename, DissFilename) ->
        {ok,F}=file:open(DissFilename, [write]),
        io:format(F,"~p.~n",[beam_disasm:file(BeamFilename)]),
        file:close(F)
      end,
  
      Diss = fun({ok, BeamFilename, DissFilename, BeamCode}) ->
          WriteBeamFile(BeamFilename, BeamCode),
          WriteDissFile(BeamFilename, DissFilename),
          case Readlines(DissFilename) of
            {ok, Data} -> Data;
            {error, Reason} -> {error, Reason}
  