anchor.diff:      [Head|V] = atom_to_list(Variable),
       [Head-32|V];
   
  -do_emit({var,Variable}) ->
  -    [Head|V] = Variable,
  -    [Head-32|V];
  -
   do_emit({asis,What}) ->
       io_lib:format("~w", [What]);
   
  
positive.code: 
  do_emit(What) when is_atom(What) ->
      atom_to_list(What);
  
  do_emit(What) when is_tuple(What) ->
      [do_emit(E) || E <- tuple_to_list(What)];
  
  do_emit(What) when is_list(What) ->
      [do_emit(E) || E <- What].
  
negative.code: emit(Term) ->
      ok = file:write(get(gen_file_out), do_emit(Term)).
  
  do_emit({prev,Variable}) when is_atom(Variable) ->
      do_emit({var,asn1ct_name:prev(Variable)});
  
  