;;
;; ordinals before sentence final .
;;



add_ord_or_dom_ne_tmr := add_ord_tmt &
[ +CONTEXT < [ +FORM ^[23]?(1|2|3)\.|(2?[1-9]|1[04-9]|20|30|31)\.$ ] >,
  +OUTPUT < [ +CLASS ord_or_dom_ne ] >].

add_ord_ne_tmr := add_ord_tmt &
[ +CONTEXT < [ +FORM ^[0-9]*((^|[^1])(1|2|3)\.|(11|12|13|[04-9]))\.$ ] >,
  +OUTPUT < [ +CLASS ord_ne ] >].