{-# htermination elemIndices :: Ordering -> [Ordering] -> [Int] #-}
import List