anchor.diff:              }]
             }]}]}]}.
   
  +
   insert_interface_inner([],_, Acc) ->
       {ok,Acc};
   insert_interface_inner([{function,_, interface,_,_}|Rest], [], Acc) ->
  
positive.code: insert_interface(AST, Exports) ->
      insert_interface_inner(AST,Exports,[]).
  
  make_interface_functions(AST, Exports) ->
      InterfaceFns = [make_interface_function(Fn)|| Fn <-Exports],
      insert_interface(AST, InterfaceFns).
  
  
  
  make_param_list(ParamCount,Line) when is_integer(ParamCount)->   
      PList     = lists:seq(65,65 + ParamCount -1),
      PAtomList = [list_to_atom([P]) ||P <-PList],
      [{var, Line, PAtom}|| PAtom <- PAtomList].
  
  
  
negative.code: 	    Exports = [{Fun, Arity } || {'/', Fun,Arity} <- proplists:get_value('Exports', Res)],
  	    
  	    {Exports,PL@};
  	{fail,PL@} ->
  	   {[], PL@}
      end.
  
  