named_gle := proper-noun-le &
 [ MORPH.LIST.FIRST.STEM < "_named_" >,
   SYNSEM.LKEYS [KEYAGR c-s-g,
		 KEYTAG "_named_" ]].

card_gle := cardinal-number-le &
 [ MORPH.LIST.FIRST.STEM < "_card_" >,
   SYNSEM.LKEYS.KEYTAG "_card_" ].

ord_gle := ordinal-number-le &
 [ MORPH.LIST.FIRST.STEM < "_ord_" >,
   SYNSEM.LKEYS.KEYTAG "_ord_" ].

yofc_gle := cardyear-mod-noun-ty-le &
	    [ MORPH.LIST.FIRST.STEM < "_yofc_" >,
	      SYNSEM.LKEYS [ ALTKEYREL "unspec_mod_rel",
			     KEYAGR c-s-g,
			     KEYAGR2 p-s-g,
			     KEYREL "yofc_rel",
			     KEYTAG "_yofc_",
			     MCLASS pclass ] ].