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