Use foldr in insertionSort