Bug294
data A #
problemField :: TO A -> A #
problemField' :: DO A -> A #
gadtField :: ({..} -> GADT A) -> A #
data family DP t :: * #