pucelle :: Topic -> Maybe [Message]
pucelle topic = generateMessage $ readTopic topic