class coord_block 
{
    + coord_block;
    Root >> Seq; node Seq: [type: sequence ];
    Seq >> coo; node coo: [type: std, cat: coo];
    coo >> Punct; node Punct: [type: lex, lex: ','];
    Seq >> Coord; node Coord: [type: $type, id: coord];
    coo < Coord;
%    node(Root).cat = node(Coord).cat;
    node(Coord).top.enum = value(~enum|appos);
}