%
% perform Via exec setting
%
% stack: relative-pep
%
dup
@@
{
"relpep " &3 &" - " log)(
 isnull ?
 root\
 dup ^"|" &"|" "Via" *findvalv
 {
  dup &"|"
"elem " log)(
  "Via" \_
"looker " log)(
  <>
"looked " log)(
  pop
  length) + fromleft
"trunc " log)(
  empty
 }
 {
  "#" found?
  {
   "#" Str.RevLeft
  }
  {
   pop2 empty empty
  } ifelse
 } ifelse

} loop
pop
%
% stack: relative-new-pep
%