;;; Hey, emacs, this file is -*- Mode: tdl; -*- ... got that?

head-complement-rule := head-initial &
[ VAL [ SPR #spr, 
        COMPS #comps ],   
  ARGS < [ VAL [ SPR #spr, 
                 COMPS [ FIRST #1 & [ VAL [ SPR < > ] ],
                         REST #comps ] ] ],  
         #1 > ].

head-specifier-rule := head-final &
[ VAL [ SPR < >,
	COMPS < > ],
  ARGS < #1 & [ VAL [ SPR < > ] ],
         [ VAL [ SPR < #1 >,
		 COMPS optional-list ] ] > ]. 

head-modifier-rule := head-initial &
[ VAL #val,
  ARGS < #1 & [ VAL #val & [ SPR < > ]  ],
         [ HEAD post-modifier & [ MOD < #1 > ],
	   VAL [ COMPS < > ] ] > ].

modifier-head-rule := head-final &
[ VAL #val,
  ARGS < [ HEAD pre-modifier & [ MOD < #1 > ],
	   VAL [ COMPS < > ] ],
	 #1 & [ VAL #val ] > ].