LISTING A: Shows Top Products at Department Level

WITH SET [Product Depts] AS '[Product].[Product Department].Members'
  SET [Top Product Depts] AS 'TopPercent( [Product Depts], 80.0, [Unit Sales] )'
  MEMBER [Product].[Product Family].[Non-Consumable].[Other] AS
     'Sum( Except( [Product Depts], [Top Product Depts] ), [Unit Sales] )'
SELECT
{ [Measures].[Unit Sales] } ON COLUMNS ,
{ [Top Product Depts],  [Product].[Product Family].[Non-Consumable].[Other] } ON ROWS 
FROM [Sales]