anchor.diff:      ].
   
   compile(Forms) ->
  -%%    io:format("FORMS ~p~n", [Forms]),
       case compile:forms(Forms) of
   	{ok, Mod, Code} ->
   	    code:purge(Mod),
  
positive.code:     end.
  
  render(Terms) ->
  %%    io:format("TERMS ~p~n", [Terms]),
      compile(render(mcc_terms, Terms)).
  render(Mod, Terms) ->
      render(Terms, lists:reverse(header(Mod, Terms)), 5).
  
negative.code:     render_namespace(Name, Terms, [{clause, Line, [{atom, Line, Key}], [], [{tuple, Line, [{atom, Line, ok}, render_value(Line, Value)]}]}|Clauses], Line + 1).
  
  render_value(Line, Value) when is_atom(Value) ->
      {atom, Line, Value};
  render_value(Line, Value) when is_integer(Value) ->
      {integer, Line, Value};
  render_value(Line, Value) when is_float(Value) ->
      {float, Line, Value};
  render_value(Line, []) ->
      {nil, Line};
  render_value(Line, Value) when is_list(Value) ->
      case io_lib:printable_unicode_list(Value) of
  	true ->
  	    {string, Line, Value};
  