excitedConcept :: (e -> s -> Bool) -> Concept s e
excitedConcept f = mempty { excited = f }
excitedConcept :: (e -> s -> Bool) -> Concept s e
excitedConcept f = mempty { excited = f }
excitedConcept f = mempty { excited = f }