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