wrote insertion sort in haskell