"Source: Text/System/Par.text";
"Line: 2573";
"Date: Thu Jul 13 10:19:10 2023";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/System/Par.text, line: 2573
// Example: H5E30 ()
print "Example: H5E30";
ei := GetEchoInput();
SetEchoInput(true);
// no-test
initial_results_niters := < 0, 0 >;
update_results_niters := procedure(~results, result, index)
    n, niters, maxval := Explode(result);
    assert index eq n;
    results := < results[1] + niters, results[2] + 1 >;
end procedure;
process_results_niters := procedure(~results)
    results := results[1] / results[2];
end procedure;
socket := Socket(: LocalHost := "circle", LocalPort := 10000);
DistributedManager(socket, [1..10] :
    initial_results := initial_results_niters,
    update_results := update_results_niters,
    process_results := process_results_niters
);
SetEchoInput(ei);
