r addind RaceDistances: work in progress