"Source: Text/System/Prof.text";
"Line: 329";
"Date: Thu Sep 25 14:47:43 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/Prof.text, line: 329
// Example: H7E3 ()
print "Example: H7E3";
ei := GetEchoInput();
SetEchoInput(true);
procedure delay(s)
    t := Cputime();
    repeat
      _ := 1+1;
    until Cputime(t) gt s;
end procedure;
procedure recursive(n)
    if n ne 0 then
      recursive(n - 1);
    end if;
    delay(0.5);
end procedure;
SetProfile(true);
recursive(1);
SetProfile(false);
G := ProfileGraph();
ProfilePrintByTotalTime(G);
ProfilePrintChildrenByTime(G, 2 : Percentage);
V := Vertices(G);
E := Edges(G);
Label(V!1)`Name;
Label(V!2)`Name;
Label(E![1,2])`Time;
Label(E![2,2])`Time;
Label(V!2)`Time;
SetEchoInput(ei);
