module Main where

import Text.HTML.Yuuko
import System

main :: IO ()
main = do
  args <- getArgs
  case args of
    [] -> putStrLn "\n  usage: echo '<div>hi</div>' | yuuko //div\n"
    expr:_ -> interact $ unlines . (yuuko expr)