scheme
  Test = class
    type 
      /* This is my comment */
      Type == Set (   MySet-set  ) | _ (  <:type_expr:> >< <:type_expr:>  )
    value
      <:value_def:>
  end