Some cleanup, insert sort in haskell way