this is broken I'm saving now to sort at home
speeded up by using runif(floor(x)) trick Im quite proud of...still doesnt work.