experimental R lab #2, Sorting in R