RosettaCodeData/Task/Multiple-distinct-objects/R/multiple-distinct-objects-2.r