{-# htermination elemIndices :: (Eq a, Eq k) => (Either a k) -> [(Either a k)] -> [Int] #-}
import List