anchor.diff:      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).
  
positive.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) ->
      io:format("render_atom ~p~n", [Value]),
      {atom, Line, Value};
  render_value(Line, Value) when is_integer(Value) ->
      io:format("render_integer ~p~n", [Value]),
      {integer, Line, Value};
  render_value(Line, Value) when is_float(Value) ->
      io:format("render_float ~p~n", [Value]),
      {float, Line, Value};
  render_value(Line, []) ->
      io:format("render_nil~n"),
      {nil, Line};
  render_value(Line, Value) when is_list(Value) ->
      io:format("render_list ~p~n", [Value]),
      case io_lib:printable_unicode_list(Value) of
  	true ->
  	    {string, Line, Value};
  
negative.code:     ].
  
  compile(Forms) ->
      case compile:forms(Forms) of
  	{ok, Mod, Code} ->
  	    code:purge(Mod),
  