select sort

select sort in Haskell