>>326

data D = A Int Int | B { foo :: String, bar :: String }
f (foo x)