1 2 3 4 5 6 7
==================== Parser ==================== module ShouldCompile where data A = comment for A A | comment for B B | comment for C C | D