anchor.diff:  emit(Term) ->
       ok = file:write(get(gen_file_out), do_emit(Term)).
   
  -do_emit({external,_M,T}) ->
  -    do_emit(T);
  -
   do_emit({prev,Variable}) when is_atom(Variable) ->
       do_emit({var,asn1ct_name:prev(Variable)});
   
  
positive.code: do_emit(com) ->
      ",";
  
  do_emit(tab) ->
      "     ";
  
  do_emit(What) when is_integer(What) ->
      integer_to_list(What);
  
  
negative.code: 
  do_emit(What) when is_atom(What) ->
      atom_to_list(What);
  
  do_emit(What) when is_list(What) ->
      [do_emit(E) || E <- What].
  