main :: IO ()
main = do 
  (filename:args) <- getArgs
  file <- S.readFile filename
  print $ test2 g ".*<h1 class=\"header-gray\">[\n\r]*([a-zA-Z;&, \\\n\t\r]*)</h1>.*" file
  -- print $ test2 g ".*aa(b*)aa.*" (S.pack "cabac")
main :: IO ()
main = do 
  (filename:args) <- getArgs
  file <- S.readFile filename
  print $ test2 g ".*<h1 class=\"header-gray\">[\n\r]*([a-zA-Z;&, \\\n\t\r]*)</h1>.*" file
  -- print $ test2 g ".*aa(b*)aa.*" (S.pack "cabac")
main = do 
  (filename:args) <- getArgs
  file <- S.readFile filename
  print $ test2 g ".*<h1 class=\"header-gray\">[\n\r]*([a-zA-Z;&, \\\n\t\r]*)</h1>.*" file
  -- print $ test2 g ".*aa(b*)aa.*" (S.pack "cabac")