{- Main.hs -}
module Main where

import Derive

 

data T = A Int String | B Integer | C

$(deriveShow ''T)

 

main = print [A 1 "s", B 2, C]  -- prints exactly <<[A 1 "s",B 2,C]>>