$<<finddp
.>d
*(<d+0t8),#(#(<d))$<dsppa.nxt
