ghc-exactprint-0.5.1.0: tests/examples/ghc8/Generate.hs

import Control.Monad (forM_)

main :: IO ()
main = forM_ [0..0xffff] $ \i -> do
   putStrLn $ ".section s" ++ show i ++ ",\"\",@progbits"
   putStrLn $ ".asciz \"Section " ++ show i ++ "\""
   putStrLn ""