{-# OPTIONS_GHC -fglasgow-exts -fth #-}
module Main where

import Derive

data T = A Int String | B Integer | C

$(deriveShow ''T)

main = print [A 1 "s", B 2, C]