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

%(letter-set (!c bdfglmnprstz))
%(letter-set (!s abcdefghijklmnopqrtuvwxyz))
%(letter-set (!a abcdefghijklmnopqrstuvwxyz))
%(letter-set (!t bcdfghjklmnpqrstvwxz))
%(letter-set (!e abcdfghijklmnopqrstuvwxyz))
%(letter-set (!v aeiou))

dative-shift-rule := verb-lxm-ditransitive-np-pp &
[ ORTH #orth,
  ARGS < verb-lxm-ditransitive-np-np & [ ORTH #orth ] > ].

intrans-verb-to-noun-rule :=
%suffix (e er) (!e !eer)
noun-lxm-intransitive &
[ ARGS <verb-lxm-intransitive> ].

trans-verb-to-noun-rule :=
%suffix (e er) (!e !eer)
agentive-noun-lxm-opt-transitive &
[ ARGS <verb-lxm-opt-transitive> ].

ditrans-verb-to-noun-rule :=
%suffix (e er) (!e !eer)
agentive-noun-lxm-ditransitive &
[ ARGS <verb-lxm-ditransitive-np-np> ].