%
% stack: hier-mode
%
_Hier.Left @
dup *dragmode

_Hier.Right @
*dragmode