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