Statement.While
type ('M, 'T) t = {
test : ('M, 'T) Expression.t;
body : ('M, 'T) Statement.t;
comments : ('M, unit) Syntax.t option;
}