1 2 3 4 5 6
==================== Parser ==================== module ShouldCompile where data A = <document comment> A | <document comment> B | <document comment> C | D