{-# htermination group :: [(Ratio Int)] -> [[(Ratio Int)]] #-} import List