import qualified Data.ByteString.Lazy as L
import qualified Data.Strict as S
import System.Environment
+import System.IO
main ∷ IO ()
main = do [wvFile] ← getArgs
wvStream ← L.readFile wvFile
+ hSetBuffering stdout NoBuffering
showWvInfo wvStream
showWvInfo ∷ L.ByteString → IO ()