bar.m

function MultiFork(n)
  res := [];
  for i in [1..n] do
    if #res eq i - 1 then
      f := Fork();
      if f ne 0 then
        Append(~res, f);
      else
        return [], i;
      end if;
    end if;
  end for;
  return res, 0;
end function;

b, r := MultiFork(10);
print b, r;
if r ne 0 then
  exit 0;
end if;
// If you remove this comment, everything goes as expected