main :: IO ()
main = do
  hSetBuffering stdout LineBuffering
  args <- getArgs
  case args of
    --[inputFile] -> wholeDoc inputFile
    [inputFile, pageNumber] -> do
      content <- fmap (unify . updates) . parseDocument <$> BS.readFile inputFile
      get content (read pageNumber)
      singlePage inputFile (read pageNumber)
    _ -> die "Syntax: getContent INPUT_FILE PAGE_NUMBER"