insert sort (haskell)