module Main where

import System.Environment
import Download
import ParseHtml
import qualified Data.Text.Lazy.Encoding as E

main :: IO ()
main = do 
    args <- getArgs
    htmlResult <- downloadHtmlDef (head args)
    printDifferentDef (E.decodeUtf8 htmlResult)