anchor.diff:  main(Args)->
       DecodeData = fun(Data) ->
         case unicode:characters_to_list(Data) of
  -        {incomplete, _, _} -> error;
  -        {error, _, _} -> error;
  +        {incomplete, _, _} -> {error, "Problem decoding"};
  +        {error, _, _} -> {error, "Problem decoding"};
           List -> List
         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:     Readlines = fun(Filename) ->
        case file:read_file(Filename) of
          {ok, Data} -> DecodeData(Data);
          {error, _} -> {error, "Problem reading file"}
        end
      end,
  
  