1 DEFINE ORDINAL  ordinal-type-name (
2 %ordinal-value-list
3 )
4? PRECISION  (integer)
5? 
5 SIGNED
5 UNSIGNED
6 ;

ordinal-value-list:

1+ ,
1 member
1.1? VALUE(integer)