Or just use concurrent_forall/3
concurrent_forall/3
[Newly added: see Size limitations on qsave_program?]