==================== Parser ====================
module ShouldCompile where
data A
  =  comment for A  A |  comment for B  B |  comment for C   C | D