{-# htermination sort :: (Ord a, Ord k) => [(Either a k)] -> [(Either a k)] #-}
import List