Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/tests/conformance98/underscore/Main.hs
module Main where data X = _A | _B | _C deriving (Show) main = putStrLn (show _A)