module Main
where

data Article = Article { headline  :: String,
                         byline    :: String,
                         body_html :: String }
             deriving (Eq, Show)

parse_article :: String -> String
parse_article _ = ""

main :: IO ()
main = do
  putStrLn "Hello, world."