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