anchor.diff:  		     floating(text(",")), reset_prec(Ctxt),
   		     fun lay/2),
   	    beside(floating(text("{")),
  -		   beside(par(Es),
  +		   beside(sep(Es),
   			  floating(text("}"))));
   	
   	list ->
   	    Ctxt1 = reset_prec(Ctxt),
   	    Node1 = erl_syntax:compact_list(Node),
  -	    D1 = par(seq(erl_syntax:list_prefix(Node1),
  +	    D1 = sep(seq(erl_syntax:list_prefix(Node1),
   			 floating(text(",")), Ctxt1,
   			 fun lay/2)),
   	    D = case erl_syntax:list_suffix(Node1) of
  
positive.code:                              floating(text(",")), reset_prec(Ctxt),
                               fun lay/2),
                      beside(floating(text("{")),
                             beside(par(Es), floating(text("}"))))
              end;
  
          type_union ->
              {_, Prec, PrecR} = type_inop_prec('|'),
              Es = par(seq(erl_syntax:type_union_types(Node),
                           floating(text(" |")), set_prec(Ctxt, PrecR),
                           fun lay/2)),
              maybe_parentheses(Es, Prec, Ctxt);
  
negative.code: 		     floating(text(",")), reset_prec(Ctxt),
  		     fun lay/2),
  	    D1 = beside(D, beside(text("("),
  				  beside(sep(As),
  					 floating(text(")"))))),
  	    maybe_parentheses(D1, Prec, Ctxt);
  	
  