parallize in R first
mostly working parallelization