--findAllItems 0 failOn10 $ P.print
say
    :: MonadIO m
    => Text -> m ()
say = liftIO . Text.putStrLn
say
    :: MonadIO m
    => Text -> m ()
say = liftIO . Text.putStrLn
say = liftIO . Text.putStrLn