module Main where import Text.HTML.Yuuko import System main :: IO () main = do args <- getArgs case args of [] -> putStrLn "\n usage: echo '