%
% stack: tree tree-item
%
"-" atleft(
{
 pop2
}
{
 @@
 !JS.Item
 dup !JS.Tree
 _@ eq$
 {
  *jsphself
 }
 {
  *+
 } ifelse
} ifelse