anchor.diff:      ["#<", Val, ">(", format_hseq(Vs,",", Ctxt2, fun format/2), $)].
   
   format_clauses(Cs, Ctxt) ->
  -    format_vseq(Cs, "", "", set_class(Ctxt, clause),
  -		fun format_clause/2).
  +    format_vseq(Cs, "", "", Ctxt, fun format_clause/2).
   
   format_clause(Node, Ctxt) ->
       maybe_anno(Node, fun format_clause_1/2, Ctxt).
  
positive.code: add_indent(Ctxt, Dx) ->
      Ctxt#ctxt{indent = Ctxt#ctxt.indent + Dx}.
  
  set_class(Ctxt, Class) ->
      Ctxt#ctxt{class = Class}.
  
  core_atom(A) -> io_lib:write_string(atom_to_list(A), $').
  
  
  
negative.code:     format_1(#c_binary{anno=A,segments=Segs}, Ctxt);
  format_1(#c_literal{anno=A,val=M},Ctxt) when is_map(M) ->
      Pairs = maps:to_list(M),
      Op = #c_literal{val=assoc},
      Cpairs = [#c_map_pair{op=Op,
  			  key=#c_literal{val=K},
  			  val=#c_literal{val=V}} || {K,V} <- Pairs],
      format_1(#c_map{anno=A,arg=#c_literal{val=#{}},es=Cpairs},Ctxt);
  format_1(#c_var{name={I,A}}, _) ->
      [core_atom(I),$/,integer_to_list(A)];
  format_1(#c_var{name=V}, _) ->
  