main :: IO ()
main = mapM_ (writeHtmlVariant . snd) $ M.toList htmlVariants
main :: IO ()
main = mapM_ (writeHtmlVariant . snd) $ M.toList htmlVariants
main = mapM_ (writeHtmlVariant . snd) $ M.toList htmlVariants