%
% create glean tree step
%
% stack: look-pos look-data look-mode monad-type op-data op-name
%
_\
rot isnull { pop "~" } if newchild
_\ !newnode
%
% stack: look-pos look-data look-mode monad-type op-name prior-node
%
exch *gleanimg
%
% stack: look-pos look-data look-mode monad-type prior-node
%

fifth "Pos" \!
fourth "Data" \!
second "Type" \!
_\ - !\
fifth "End" \!
!\
%
% stack: look-pos look-data look-mode monad-type
%