full_size ( Make xs ) = succ $ sum $ map full_item_size $ S.setToList xs
full_size ( Make xs ) = succ $ sum $ map full_item_size $ S.setToList xs
full_size ( Make xs ) = succ $ sum $ map full_item_size $ S.setToList xs