Use mclapply