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

s := s & [ ARGS < np, vp > ].

vp1 := vp & [ ARGS < v, np > ].

vp2 := vp & [ ARGS < v > ].

vp3 := vp & [ ARGS < vp, pp > ].

pp := pp & [ ARGS < p, np > ].

np := np & [ ARGS < np, pp > ].

;foo := foo & [ ARGS < np > ].

;np2 := np & [ ARGS < foo > ].