insertion sort haskell version.
equilibrium point