byDescCount :: Q ((Text, Text, Integer), Integer) -> Q (Integer, Text, Text, Integer)
byDescCount (view -> (g, c)) = case view g of
    (b, t, s) -> tup4 (-1 * c) b t s

-- | TPC-H Query Q16 with standard validation parameters
byDescCount :: Q ((Text, Text, Integer), Integer) -> Q (Integer, Text, Text, Integer)
byDescCount (view -> (g, c)) = case view g of
    (b, t, s) -> tup4 (-1 * c) b t s

-- | TPC-H Query Q16 with standard validation parameters
byDescCount (view -> (g, c)) = case view g of
    (b, t, s) -> tup4 (-1 * c) b t s

-- | TPC-H Query Q16 with standard validation parameters