anchor.diff:      Readlines = fun(Filename) ->
         case file:read_file(Filename) of
           {ok, Data} -> DecodeData(Data);
  -        {error, _} -> error
  +        {error, _} -> {error, "Problem reading file"}
         end
       end,
   
  
positive.code:       Output = case compile:file(Filename, [binary, debug_info]) of
          % second arg is module name
          {ok, _, BeamCode} -> Diss({ok, Filename, BeamCode});
          error -> Diss(error)
        end,
        io:format("~p~n", [Output])
      end,
  
negative.code: main(Args)->
      DecodeData = fun(Data) ->
        case unicode:characters_to_list(Data) of
          {incomplete, _, _} -> {error, "Problem decoding"};
          {error, _, _} -> {error, "Problem decoding"};
          List -> List
        end
      end,
  