Add fileStream.hs

fileStream.hs

@@ -0,0 +1,22 @@
+--  Copyright © 2025 Hashirama Senju
+-{
+    this is an extremely fast and memory-constant program that lists directories in recursive mode;
+    the output is utf8, so that it can display japanese characters.
+}-
+
+{-# LANGUAGE OverloadedStrings #-}
+
+import Data.DirStream
+import Pipes
+import Pipes.Safe
+import System.IO (stdout, hSetEncoding, utf8)
+import qualified Data.Text as T
+import qualified Data.Text.IO as TIO
+import Filesystem.Path.CurrentOS (encodeString)
+
+main :: IO ()
+main = do
+    hSetEncoding stdout utf8
+    runSafeT $ runEffect $
+        for (every (descendentOf "/mnt/Data/Japanese_Resources/")) $
+            liftIO . TIO.putStrLn . T.pack . encodeString