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