%
% collect timing chains
%
"
'<*>' &_tick logs
empty !ticker
empty !Xper.Fails
System.Protect(
pop
{
"
"timetrak_timing" text!bin

0 !Timing.Count

"timing_*" heretext *timecoll
"timing_*" bintext *timecoll

*stakfile

%
% stack: empty [ . . . ]
%
empty
{
 exch isnull ?
 +:Timing.Count
 dup fileroot term2 5 left
 ^" " catspc exch quocat
 " tickbelow ?" &&;
 ^
} loop
pop

"
 100000 ""timing_99999 none.txt"" tickbelow ?
 true ?
} loop

System.Protect)

" &&;

"timetrak_timing" text binappend