*(dpup)>d
<d,#(#(<d))$<dpup.nxt
