anchor.diff:  parse_BuiltinType([{'SEQUENCE',_},{'OF',_},Id={identifier,_,_},Lt={'<',_}|Rest]) ->
   %% TODO: take care of the identifier for something useful
       {Type,Rest2} = parse_SelectionType([Id,Lt|Rest]),
  -    {#type{def={'SEQUENCE OF',#type{def=Type,tag=[]}}},Rest2};
  +    {#type{def={'SEQUENCE OF',Type}},Rest2};
   
   parse_BuiltinType([{'SEQUENCE',_},{'OF',_},{identifier,_,_} |Rest]) ->
   %% TODO: take care of the identifier for something useful
  
positive.code: parse_ParameterizedType(Tokens) ->
      {Type,Rest} = parse_SimpleDefinedType(Tokens),
      {Params,Rest2} = parse_ActualParameterList(Rest),
      {{pt,Type,Params},Rest2}.
  
  parse_ParameterizedValue(Tokens) ->
      {Value,Rest} = parse_SimpleDefinedValue(Tokens),
  
negative.code: 		      Result ->
  			  Result
  		  end,
      case Rest5 of
  	[{'(',_}|_] ->
  	    {Constraints,Rest6} = parse_Constraints(Rest5),
  	    {Type#type{tag=Tag2,
  		       constraint=merge_constraints(Constraints)},Rest6};
  	[_|_] ->
  	    {Type#type{tag=Tag2},Rest5}
      end.
  
  parse_BuiltinType([{'BIT',_},{'STRING',_}|Rest]) ->
  