%
% move down a task level
%
% stack: next-level-task
%
@@
"Default" _@ eq$
{
}
{
 Task.@Child
} ifelse

%
% stack: pep-name
%
"taskarea" exch *taskopen