Switch.Case
type ('M, 'T) t = 'M * ('M, 'T) t'
and ('M, 'T) t' = {
test : ('M, 'T) Expression.t option;
consequent : ('M, 'T) Statement.t list;
comments : ('M, unit) Syntax.t option;
}