module Main where

data X = _A | _B | _C
  deriving (Show)

main = putStrLn (show _A)