tons :: DiscourseUnit -> [RefKey]
duSingletons =
    mapMaybe refSingleton . flatten

-- | A
duSingletons :: DiscourseUnit -> [RefKey]
duSingletons =
    mapMaybe refSingleton . flatten
duSingletons =
    mapMaybe refSingleton . flatten