third

  *cusvsubs

%
% stack:  xlist-pre xlist-post xlist-ctr tack-dir seed xlist-ctr
%

 6 -1 roll ^
 5 1 roll