check_list_par(L,N) -> Pids = pex:spawn_n(N,prime,check,[]), Lists = pex:split_list(L,N), send_all(Pids,Lists), receive_all(Pids).