new version of insertion sort in haskell