anchor.diff:      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};
  
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_list(Line, lists:reverse(Value))
      end;
  render_value(Line, Value) when is_tuple(Value) ->
      {tuple, Line, lists:map(fun(A) ->
  				    render_value(Line, A)
  			    end, tuple_to_list(Value))};
  render_value(Line, Value) when is_binary(Value) ->
      {bin, Line, lists:map(fun(E) ->
  				  {bin_element, Line, render_value(Line, E), default, default}
  			  end, binary_to_list(Value))}.
  