reply :: [Script] -> Text -> Maybe Text
reply scripts query = asum . map (getReply query) $ scripts
reply :: [Script] -> Text -> Maybe Text
reply scripts query = asum . map (getReply query) $ scripts
reply scripts query = asum . map (getReply query) $ scripts