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).