1 2 3 4 5 6 7 8 9 10 11 12
{-# LANGUAGE CPP #-} {-# OPTIONS_GHC -optP -C #-} #define A 'a' main :: IO () main = putStrLn [A, -- /* 'b', -- */ 'c']