dative-shift-lrule := ditranspp-verb &
[ ORTH #orth,
  ARGS < ditransnp-verb & [ ORTH #orth ]  >].